以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  加载表问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101925)

--  作者:jick0526
--  发布时间:2017/6/9 20:34:00
--  加载表问题
老师,请问下能帮我实现下面的功能吗?,
1.我想在快速访问栏点下保存按钮后,在菜单栏的文本框里会自动
输入已刷新三个字。   
2.在菜单栏做个按钮,按下按钮就会自动加载当前表的所有列





--  作者:有点蓝
--  发布时间:2017/6/9 20:50:00
--  
1、保存按钮增加代码

RibbonTabs("功能区1").Groups("功能组1").Items("文本框1").Text = “已刷新


--  作者:jick0526
--  发布时间:2017/6/11 19:26:00
--  
老师,请问下,下面的代码如果改成重新加载当前表该怎么改代码,谢谢
For Each dt As DataTable In DataTables
    dt.Load()

Next

--  作者:白国栋
--  发布时间:2017/6/11 22:02:00
--  
If DataTables.Contains("产品") = False Then
    DataTables.Load("产品|客户|订单")
    MainTable = Tables("产品")
End If

参考这个代码应该就可以实现。程序casestudy例子里的《表的加载与卸载》里的代码可以参考。

--  作者:jick0526
--  发布时间:2017/6/12 1:30:00
--  
上面的代码是针对表的,我想要的是通用的,针对当前表,老师麻烦代码帮我改下,谢谢
--  作者:有点蓝
--  发布时间:2017/6/12 8:51:00
--  
CurrentTable.DataTable.Load