【搞定】关于选择的问题

wulei_doudou_1 · 发表于 2007-7-12 15:10:15

有没有详细点的例子？代码全点！

zfang · 发表于 2007-7-12 15:19:18

昨天你给我的那个包里我是这么做的：
在弹出窗口代码中
Public处声明一个变量：lStr : String;
然后你在调用这个弹出窗口的时候，给lStr动态赋值
最后在弹出窗体显示事件中
procedure TKHDXCT.BizFormShow(Sender: TObject);
begin
if lStr <> '' then
  begin
  //过滤出FID为lStr数值的数据
  dsbRYXX.DataSet.Filtered := False;
  dsbRYXX.DataSet.Filter := ' FID = ''' + lStr + '''';
  dsbRYXX.DataSet.Filtered := True;
  end;
end;

sunwbh · 发表于 2007-7-12 15:46:39

"调用这个弹出窗口的时候，给lStr动态赋值",在哪赋值.能给指明吗?

zfang · 发表于 2007-7-12 15:51:08

procedure TBGWDDXLZ.FIELD_BizTaskData_ESField01ButtonClick(Sender: TObject);
var
  lKHDXCT: TKHDXCT;
begin
  lKHDXCT := TKHDXCT.Create(context);
  try
lKHDXCT.lStr := 'LJL';//这儿需要你自己动态赋值
lKHDXCT.ShowModal;
  finally
lKHDXCT.Free;
  end;
end;

sunwbh · 发表于 2007-7-12 16:02:08

我按你的方法加了编码,编译都能完成,就是没有效果.

zfang · 发表于 2007-7-12 16:14:24

不是吧？
我是在你们昨天给我的包里做过测试的！
这样吧，我把包给你们一下，然后你们看看！

wulei_doudou_1 · 发表于 2007-7-13 09:59:00

在点击多选框的时候出现的

wulei_doudou_1 · 发表于 2007-7-13 10:00:26

这个是上图那个错误点了“确定”后出现的东东

zfang · 发表于 2007-7-13 10:09:18

是不是你过滤代码写的地方不对阿？

wulei_doudou_1 · 发表于 2007-7-13 10:11:44

不知道啊，你昨天给我的那个包里根本就没有过滤得代码，和前天的一样

		自动登录	找回密码
密码			立即注册