仓库管理软件版1楼: 请问如何使用(调用)DBGridEh的筛选、查找功能

2楼: 还不行!请帮忙。多谢 如用友软件销售合同

3楼: 将DBGRIDEH->OptionEh->dbgDialogFind->True即可
使用时按Ctrl+F,但是在使用过程中在我这个版本(Elhib 3.3)发现有一个BUG，即第一次的时候会出现错语，第二次即正常。可对DBGridEhFindDlgs.pas中的以下单元作如下更改，即可正常
procedure TDBGridEhFindDlg.cbTextChange(Sender: TObject);
begin
IsFirstTry := True;

//此处有自行更改的代码
//更改原因，在第一次使用查找时，会出错，原因是在给查找的列表赋值时，造成对此过程的调用
//但是此时self.FFindColumnsList=nil,所以出错

if cbFindDirection.ItemIndex = 0
then
begin
if self.FFindColumnsList<>nil then
FCurInListColIndex := FFindColumnsList.Count-1
end
else FCurInListColIndex := 0;
end;

4楼: 多谢levi，如果写成按键或右键快捷菜单的单击时，如何使用代码实现？

5楼: 多谢levi，我用以下代码能够用快捷弹出“查找”对话框

keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);
keybd_event(Ord(＇＇F＇＇), MapVirtualKey(Ord(＇＇F＇＇), 0), 0, 0);
keybd_event(Ord(＇＇F＇＇), MapVirtualKey(Ord(＇＇F＇＇), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), KEYEVENTF_KEYUP, 0);

请问“筛选”的对话框如何调出(它的快捷键是什么)？

6楼: 写个函数调用即可。我自己有写过。

仓库管理软件版7楼: 心飞雪：您好。
本人实在很笨，如何写法，请指教。能否发到我的邮箱 nflpc88@21cn.com ？
多谢!

8楼: 可以对连接的数据源进行查询，返回结果显示在表中．

9楼: 我自己写了一个调用函数，挺好用的：
function dbgrideh_find_dialog(agrid:Tdbgrideh;is_find:boolean):boolean; // 打开dbgrideh表格的查找对话框功能
begin
ExecuteDBGridEhFindDialogProc(agrid,＇＇＇＇,＇＇＇＇,nil,is_find);
end;