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() \'解锁主界面