filter如何筛选其他窗口控件的值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

从订购表录入打开计划单选择时，计划单选择表能按控件上的项目名称，显示相应的计划单嘛？

此主题相关图片如下：捕获1.png

此主题相关图片如下：捕获2.png

If Forms("订购单录入").Opened Then
Tables("订购单选择_Table1").Filter = "工程名称='" & Forms("订购单录入").Controls("Combobox1").Text & "'"
End If

问题已经解决，把下面的代码放到订购单选择afterload里面就行了

Tables("DG计划单选择_计划单总").Filter = "工程名称 = '"& Forms("订购单_录入").controls("ComboBox2").text &"'"

现在想问一下，如何按“全部”按钮，能把相应项目的计划单明细显示出来？明细表和总表通过订单号关联，明细表没有项目名称，无法直接filter项目名称。

另外，如果想增加一个搜索按钮，搜索对应项目计划单里的某项材料情况，又该怎么处理。

此主题相关图片如下：捕获3.png

此主题相关图片如下：捕获4.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:temp3.table

[此贴子已经被作者于2015/12/26 1:26:23编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:temp3.table

“显示全部”

Dim t1 As WinForm.Table = e.Form.Controls("计划单总")

Dim ids As List(Of String) = t1.Table.DataTable.GetValues("计划单号",t1.Table.Filter)

Dim t2 As WinForm.Table = e.Form.Controls("计划单明细")

t2.Table.Filter = "计划单号 in ('" & String.Join("','",ids.ToArray()) & "')"

Dim g As WinForm.CheckBox = e.Form.Controls("CheckBox1")

g.Checked = False

“搜索”

Dim t1 As WinForm.Table = e.Form.Controls("计划单总")

Dim ids As List(Of String) = t1.Table.DataTable.GetValues("计划单号",t1.Table.Filter)

Dim t2 As WinForm.Table = e.Form.Controls("计划单明细")

Dim filter As String = "计划单号 in ('" & String.Join("','",ids.ToArray()) & "') "

Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")

If txt.Text > "" Then

filter = filter & " and 材料名称 like '%" & txt.Text & "%' "

End If

--------------------------------------

想问一下“t1.Table.DataTable.GetValues”.为什么要加Table.DataTable？试着去掉，显示“不是WinForm.Table的成员“。

此主题相关图片如下：捕获5.png

[此贴子已经被作者于2015/12/31 0:41:56编辑过]

t1是控件，t1.Table是控件里的表格，GetValues是DataTable的方法

主题：filter如何筛选其他窗口控件的值