以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当前窗口切换表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79355)
--  作者：发财
--  发布时间：2015/12/29 16:16:00
--  当前窗口切换表

Dim b As WinForm.ComboBox
b = e.Form.Controls("ComboBox1")
CurTbl = Tables(b.Value)
Forms("排序").show
e.Form.Controls("Table1") = Tables(b.Value)

最后一句代码应如何改？
--  作者：大红袍
--  发布时间：2015/12/29 16:16:00
--  
e.Form.Controls("Table1").Table.DataSource = Tables(b.Value).DataTable
--  作者：发财
--  发布时间：2015/12/29 16:26:00
--  
非常感谢！
--  作者：发财
--  发布时间：2015/12/30 9:10:00
--  

CurTbl = CurrentTable
Dim b As WinForm.ComboBox
b = e.Form.Controls("ComboBox1")
CurTbl = Tables(b.Value)
Forms("排序").show
e.Form.Controls("Table1").Table.DataSource = Tables(b.Value).DataTable

如果排序，窗口的数据表不能显示排序，应如何改？
--  作者：Hyphen
--  发布时间：2015/12/30 9:13:00
--  
e.Form.Controls("Table1").Table.Sort = "第一列"
--  作者：发财
--  发布时间：2015/12/30 9:22:00
--  
不是这个意思，窗口显示的数据表（e.Form.Controls("Table1").Table.DataSource）如何同原表（Tables(b.Value).DataTable）是否同步显示？
--  作者：大红袍
--  发布时间：2015/12/30 10:11:00
--  
不可能同步显示啊。排序、筛选什么的，去编写排序、筛选的事件啊。以前你问过啊。