|
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() '解锁主窗口
| 
加好友 
发短信
Post By：2019/1/25 16:13:00 [只看该作者]
