此主题相关图片如下：2.png
此主题相关图片如下：1.png
老师请问下如何修改下代码才能实现像对外部表 刷新加载
图片1 通过 TopicBar 单击实现不同内容的筛选
TopicLinkClick 事件中的代码：
Select Case pg
Case="组长"
Tables("产品信息").Filter= "模具负责人 = '" & e.link.name & "'and substring([产品编号],1,4) = '" & nr & "'"
对已经加载的内容是可以正常进行操作的，看了帮助文件，把代码作如下修改，无效，
Select Case pg
Case="组长"
LockBaseMainForm() '锁定主界面
DataTables("产品信息").StopRedraw()
DataTables("产品信息").RemoveFor("模具负责人 = '" & e.link.name & "'and substring([产品编号],1,4) = '" & nr & "'")
DataTables("产品信息").AppendLoad("模具负责人 = '" & e.link.name & "'and substring([产品编号],1,4) = '" & nr & "'")
DataTables("产品信息").ResumeRedraw()
UnLockBaseMainForm() '解锁主界面
加好友 
发短信
Post By：2018/9/9 13:57:00 [只看该作者]
