以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]重新生成表格  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69053)
--  作者：twef
--  发布时间：2015/5/29 15:24:00
--  [求助]重新生成表格
 

有两个窗口：

窗口1中有一个table1表（类型设为SQLTable）及一个组合框ComboBox1；

窗口2中有一个button按钮，想要数据改变后按窗口2中button按钮调用窗口1组合框ComboBox1中的条件，table表格重新生成

Button按钮代码

Dim Filter As String

With                            

    If .Value IsNot Nothing Then

        Filter = "项目名称 = \'" & .Value & "\'"

    End If

End With

DataTables("窗口1_Table1").LoadFilter = Filter

DataTables("窗口1_Table1").Load()

请教阴影部分代码如何写？

[此贴子已经被作者于2015/5/29 15:26:17编辑过]
--  作者：大红袍
--  发布时间：2015/5/29 15:27:00
--  
With Forms("窗口1").Controls("ComboBox1")