以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表数据对比  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84827)
--  作者：kaituozhe
--  发布时间：2016/5/11 14:40:00
--  跨表数据对比

Dim cmd As new SQLCommand
Dim dt As DataTable \'= DataTables("合同明细_table1")
cmd.C
Select Case e.sender.name
    Case "未发货"
        cmd.CommandText = "Select * Fr om {合同明细} Where [合同编号]  not In ( Select 合同编号 Fr  om {发货明细} Where 合同编号 Is not Null)"
        dt=cmd.ExecuteReader()

End Select

 

想通过以上代码实现查找已有订货未发货的订单明细表并显示在窗口中，怎么修改上述代码，假定窗口名称为窗口1
--  作者：大红袍
--  发布时间：2016/5/11 14:45:00
--  
Forms("窗口1").Controls("Table1").Table.DataSource = dt
--  作者：大红袍
--  发布时间：2016/5/11 14:46:00
--  

或者直接fill进去也可以

 

http://www.foxtable.com/help/topics/2912.htm

 
--  作者：kaituozhe
--  发布时间：2016/5/11 17:57:00
--  
怎么取消筛选，恢复原表？
--  作者：大红袍
--  发布时间：2016/5/11 18:03:00
--  
以下是引用kaituozhe在2016/5/11 17:57:00的发言：
怎么取消筛选，恢复原表？

 

方法一：重新fill表格进去，或者重新生成表格绑定进去；

 

方法二：就是你不要用上面的方法做，你直接用filter设置也可以的啊，比如

 

Tables("表A").Filter = "第一列 not in (\'" & DataTables("表B”).GetComboListString("第一列").replace("|", "\',\'") & "\')"