此主题相关图片如下: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() '解锁主界面