LockBaseMainForm() '锁定主窗口
DataTables("医疗业务报表指标关联表").StopRedraw '停止绘制订单明细
DataTables("医疗业务报表指标关联表").RemoveFor(fl) '移除当前订单的订单明细
DataTables("医疗业务报表指标关联表").Appendload(fl) '追载当前订单的订单明细
DataTables("医疗业务报表指标关联表").ResumeRedraw '恢复绘制订单明细
Dim str As String = DataTables("医疗业务报表指标关联表").GetComboListString("报表名称",fl)
fl = “报表名称 in ('" & str.replace("|","','") & "')”
DataTables("医疗业务报表管理表").RemoveFor(fl) '移除当前订单的订单明细
DataTables("医疗业务报表管理表").Appendload(fl) '追载当前订单的订单明细
UnLockBaseMainForm() '解锁主窗口
end if
加好友 
发短信
Post By：2020/11/3 20:18:00 [只看该作者]
