起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 189|回复: 4

【结贴】让dataset的焦点等于FuncBroker.func.Parameters**

[复制链接]
发表于 2008-3-18 15:00:00 | 显示全部楼层 |阅读模式
http://bbs.justep.com/showthread ... d=149855#post149855
上面这个帖子里的第二个需求,我已经捣鼓了一部分:
procedure TZCT.BizFormCreate(Sender: TObject);
begin
    if FuncBroker.func.Parameters <> '' then
    begin
    DataSetBroker1.DataSet.Filter:='ID=''0000001132''';  //现在是拿一个filter做测试的,希望是不要过滤,只是焦点变为传过来的ID而已。
    DataSetBroker1.DataSet.Filtered:=true;
    PageControl.ActivePage := TabSheet1;
    end;
end;

我希望如何这个功能是自己打开的,那就打开第一条记录,如果是通过别的功能的RunFunc打开的话,那就让数据集的焦点停留在FuncBroker.func.Parameters的那条记录上,FuncBroker.func.Parameters传过来的就是dataset的ID字段值。
回复

使用道具 举报

发表于 2008-3-18 15:11:05 | 显示全部楼层
DataSetBroker1.DataSet.Filter:='ID=''0000001132''';
改成
DataSetBroker1.DataSet.Filter:='ID=''' +  FuncBroker.func.Parameters + '''';
应该就可以了。
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-18 15:15:30 | 显示全部楼层
主要是我不想过滤,filter一下子把其他的数据都弄没了,我只是希望焦点放到我的那个传入的参数中,就像在多条grid数据中我选择了一条,但不是把其他都过滤了。
.                                                                                                                                                                                                 .
.                                                                                                                                                                                                 .
回复 支持 反对

使用道具 举报

发表于 2008-3-18 15:20:34 | 显示全部楼层
DataSetBroker1.DataSet.Locate('字段1;字段2',Variants.VarArrayOf([值1,值2]),[])
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-3-18 15:41:59 | 显示全部楼层
OK,谢谢,结!
.                                                                                                                                                                                                 .
.                                                                                                                                                                                                 .
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-8 11:45 , Processed in 0.042405 second(s), 15 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表