【搞定】[请求]如何完成入门手册中 5.2.10 过滤订单列表中的数据**

hero419

学习入门手册中 5.2.10 过滤订单列表中的数据的时候需要在功能“订单列表”上创建一个下拉查询条件“客户”（下拉列表数据从KHB表中选取）。
SQL语句应该是
select * from DD
where DD.KH=:KH


目前已经完成的内容是
1、数据字典，（订单编号，客户，业务员等。客户从KHB表查找）
2、业务信息，（订单数据集仅包含订单表，未作其他改变。）
3、表格文档，（grid样式）

在客服的帮助下完成在表格文档中添加InfoBroker1和DataSetBroker1并指定到订单数据集，准备创建表格文档里的DocCreate事件，进入下面的事件编辑：
procedure TDDLB.SheetDocCreate(Sender: TObject);
begin

end;



1、请帮我写一下事件代码，我以前没写过。
2、完成后是不是用功能直接引用这个文档就可以实现需求，还需要其他的步骤了么。

jiahaiminghr

楼主要在表格文档的OnCreate事件中做什么呢？

hero419

电话里客服让创建的，说是进行SQLFilter过滤。

当然这只是过程，我关心的是能否实现需求，我现在都不知道实现需求的最简便的方法有哪几个步骤。
不晓得我的需求有没有说清楚：在功能“订单列表”上创建一个下拉查询条件“客户”（下拉列表数据从KHB表中选取）。

jiahaiminghr

如果是做sqlfilter过滤：

TSqlDataSet(DataSetBroker1.DataSet).SqlFilter := '表达式';
TSqlDataSet(DataSetBroker1.DataSet).SqlFiltered := true;

'表达式'的语法和sql的where部分一致

hero419

事件的代码应该写成这样么？
procedure TDDLB.SheetDocCreate(Sender: TObject);
begin
TSqlDataSet(DataSetBroker1.DataSet).SqlFilter := 'DD.KH=:KH';
TSqlDataSet(DataSetBroker1.DataSet).SqlFiltered := true;
end;

yancm

TSqlDataSet(DataSetBroker1.DataSet).SqlFilter := 'DD.KH='''+ DataSet2.FieldByName('KH').AsString+'''';

jiahaiminghr

不要使用:KH，这是数据集参数的用法，在过滤前还得为参数赋值

你可以直接写条件
TSqlDataSet(DataSetBroker1.DataSet).SqlFilter := 'DD.KH='  +  Sysutils.QuotedStr('A客户');

hero419

参考楼上给出brp文件的内容，该问题已经解决。
实际上就是设置数据集SqlFilter的过程，谢谢几位的耐心解答。