以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  麻烦优化一哈代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130576)

--  作者:manyifuwu
--  发布时间:2019/1/25 16:13:00
--  麻烦优化一哈代码
LockBaseMainForm() \'锁定主窗口
Dim r As Row = Tables("客户查询_table8").Current
Dim fl As String = "编号 = \'"  & r("编号") & "\'"
r.Load() \'加载父行
DataTables("来电记录").StopRedraw \'停止绘制来电记录
DataTables("来电记录").RemoveFor(fl) \'移除当前订单的来电记录
DataTables("来电记录").Appendload(fl) \'追载当前订单的来电记录
DataTables("来电记录").ResumeRedraw \'恢复绘制来电记录
Dim rc As Row = Tables("客户查询_table8").Current
Dim flc As String = "编号2 = \'"  & rc("客户id") & "\'"
rc.Load() \'加载父行
DataTables("财务").StopRedraw \'停止绘制财务
DataTables("财务").RemoveFor(flc) \'移除当前订单的财务
DataTables("财务").Appendload(flc) \'追载当前订单的财务
DataTables("财务").ResumeRedraw \'恢复绘制财务
Dim r As Row = Tables("客户查询_table8").Current
Dim fl As String = "合同号 = \'"  & r("合同号") & "\'"
r.Load() \'加载父行
DataTables("服务卷").StopRedraw \'停止绘制服务卷
DataTables("服务卷").RemoveFor(fl) \'移除当前订单的服务卷
DataTables("服务卷").Appendload(fl) \'追载当前订单的服务卷
DataTables("服务卷").ResumeRedraw \'恢复绘制服务卷
UnLockBaseMainForm() \'解锁主窗口

--  作者:有点甜
--  发布时间:2019/1/25 18:45:00
--  

这种代码无法优化的。

 

做一个具体例子发上来,看看是否可以变通处理。