起步软件技术论坛-X3

 找回密码
 立即注册
搜索
查看: 281|回复: 11

【结贴】TDataLocateComboBox[新版]**

[复制链接]
发表于 2008-5-8 15:48:21 | 显示全部楼层 |阅读模式
如何通过 TDataLocateComboBox 对一个表单文档 进行查询呢
使用最简单的方式
如图:

123.jpg

40.53 KB, 下载次数: 160

回复

使用道具 举报

发表于 2008-5-8 15:55:31 | 显示全部楼层
链接一个数据源,然后对表格文档的数据集用代码赋值sqlfiter
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-8 16:02:21 | 显示全部楼层
procedure TMAINFORM.DataLocateComboBox1Click(Sender: TObject);
var
   StrFilter:string;
begin

     StrFilter := '1=1';

     if  DataLocateComboBox1.Text<>'' then
         StrFilter := StrFilter + ' and JHPC=''' + DataSetBroker1.DataSet.FieldByName('JHPC').AsString +'''';
     Tsqldataset(DataSetBroker2.DataSet).UserFilter := StrFilter;
end;
请问这样实现为什么没有过滤效果
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-8 16:25:48 | 显示全部楼层
回复 支持 反对

使用道具 举报

发表于 2008-5-8 16:50:58 | 显示全部楼层
with TsqlDataSet(DataSetBrokerming.DataSet) do
    begin
      close;
      UserFilter := 'ACCENTANCE_NOTIFY_LIST.kcsl > 0 and ACCENTANCE_NOTIFY_LIST.htbh ='+IntToStr(HTB);
      Open;
    end;
回复 支持 反对

使用道具 举报

发表于 2008-5-8 17:02:26 | 显示全部楼层
我用的DataLocateComboBox1KeyDown
但是必须回车很不方便
请问应该用那个事件
回复 支持 反对

使用道具 举报

发表于 2008-5-8 17:11:04 | 显示全部楼层
DataLocateComboBox1Exit  看看这个效果好不好
回复 支持 反对

使用道具 举报

 楼主| 发表于 2008-5-8 17:20:01 | 显示全部楼层
在拖动滚动条的时候,如何解决TDataLocateComboBox跟随移动的问题
回复 支持 反对

使用道具 举报

发表于 2008-5-8 17:23:06 | 显示全部楼层
我用的onCloseUp 事件。好了
现在就是DataLocateComboBox随着屏幕走
不能固定不动???
回复 支持 反对

使用道具 举报

发表于 2008-5-8 17:34:11 | 显示全部楼层
哦,我明白你说啥了。你要把这个控件放到表格文档里。或者把他放到这个窗体的工具条里。
回复 支持 反对

使用道具 举报

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

本版积分规则

小黑屋|手机版|Justep Inc.

GMT+8, 2025-7-12 10:47 , Processed in 0.039957 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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