主题：筛选问题

 

写在什么事件？例子发上来

 例子上传

 用下面的代码测试一点问题都没有啊

 

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Tables("订单.订单明细表").Filter = "供应商 = '" & gys.Value & "' and 订单编号='" & Tables("订单明细表").current("订单编号") & "'"

 这段代码。你要判断各个表是否有数据

 

Tables("排产主表").Select(0, 0)
Tables("排产明细表").Select(0, 0)
Tables("排产主表.排产明细表").Select(0, 0)

 筛选出来如果是空的，就是没有数据对应的数据啊，请好好检查一下你的条件，是否符合逻辑啊。

 

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Tables("订单.订单明细表").Filter = "供应商 = '" & gys.Value & "'"

 

1、看具体的表是什么；

 

2、看生成的条件是什么；

 

3、理清自己想做什么

 你给的例子筛选没有问题，具体出错例子，请发上来

 

你想说什么？

 

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
Tables("订单.订单明细表").Filter = "供应商 = '" & gys.Value & "'"

 

 enter事件

 

Dim gys As WinForm.ComboBox = e.Form.Controls("供应商")
gys.ComboList = DataTables("订单明细表").GetComboListString("供应商", "订单编号='" & Tables("订单").current("订单编号") & "'")

楼上，你想问什么？