【搞定】很急的一下问题！**

刺青

procedure TSPJHTJ.BitBtn7Click(Sender: TObject);
var
   djbhstr : string;
begin
     djbhstr := self.DataSource1.DataSet.FieldByName['单据编号'].AsString;
     djForm := JHDGN.TJHD.Create(Self.Context);
     try
     djForm.DataSetBroker1.DataSet.Filter := 'DJBH = '+ djbhstr;
     djForm.ShowModal;
     Finally
     djForm.Free;
     end;
end;

这就是单击事件里的代码了．

atiger

1、self.DataSource1.DataSet.FieldByName['单据编号'].AsString;
这是你输入的值001或者002的地方？
2、DataSource1 和 DataSetBroker1 对应的是一个数据集吗？

如果这两个都是，那就不行。
应该这样做
1、在窗体上，放一个普通的 Edit，用于输入要查询的值
2、然后再过滤，记住，9搂的代码一定要有，

刺青

１、self.DataSource1.DataSet.FieldByName['单据编号'].AsString;
这是取得被选中的记录中单据编号的值，而已不是输入。

２、我只用了DataSource1 和Query，没有用到DataSetBroker1 。

我的过滤条件是在DataGrid中取得的，即，选中某条记录后，取单据编号的值，用的方法是
self.DataSource1.DataSet.FieldByName['单据编号'].AsString;
代码像１１楼里一样，但是，加上　djForm.DataSetBroker1.DataSet.Filtered := true;　就会出错了。不加上去就没有错误。

atiger

1、self.DataSource1.DataSet.FieldByName['单据编号'].AsString;  这句话运行没有报错？
不应该是单据编号'，而应该是这个字段的ID

2、djForm.DataSetBroker1.DataSet.Filter  这里面不能有DataSetBroker1？

刺青

１、self.DataSource1.DataSet.FieldByName['单据编号'].AsString; 运行是没有错的。
如果把单据编号改成这个字段的ＩＤ就有错了！是不是我用Query执行SQL语句时把字段ID改成别名了(select DJBH as 单据编号,.................)，所以，只能用别名了，不能用字段ID了？

２、djForm.DataSetBroker1.DataSet.Filter　这里的DataSetBroker1，是被调用窗体djForm里的

１２楼中
2、DataSource1 和 DataSetBroker1 对应的是一个数据集吗？
答：这两个不是对应同一数据集。

atiger

不可能啊，这样吧，你把资源上传上来，我恢复看看

刺青

在进货查询/商品进货统计功能中,"查看单据"按扭
这个按扭刚开始是隐藏的.

atiger

能把这个功能用到的数据给我吗？要不我一个一个填很麻烦

刺青

上面那个句没有删数据了.
我还是再把包上传一下吧.
等一下啊

刺青

可以了