| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 麻烦优化一哈代码 (http://foxtable.net/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 -- 这种代码无法优化的。
做一个具体例子发上来，看看是否可以变通处理。 |