刷新改码改成下面这样了,但是刷新时,左下角的表的内容会消失,要点一下右下角的关联表才会再出来
Dim r As Row = Tables("医疗业务指标管理表").Current
Dim fl As String = "指标名称 = '" & r("指标名称") & "'"
r.Load() '加载父行
LockBaseMainForm() '锁定主窗口
DataTables("医疗业务报表指标关联表").StopRedraw '停止绘制关联表明细
DataTables("医疗业务报表指标关联表").RemoveFor(fl) '移除当前关联表的明细
DataTables("医疗业务报表指标关联表").Appendload(fl) '追载当前关联表的订单明细
DataTables("医疗业务报表指标关联表").ResumeRedraw '恢复绘制关联表明细
'UnLockBaseMainForm() '解锁主窗口
'刷新医疗业务报表管理表
Dim str As String = DataTables("医疗业务报表指标关联表").GetComboListString("报表名称",fl)
fl = "报表_名称 In ('" & str.replace("|","','") & "')"
DataTables("医疗业务报表管理表").RemoveFor(fl) '移除当前报表管理表的明细
DataTables("医疗业务报表管理表").Appendload(fl) '追载当前报表管理表的明细
UnLockBaseMainForm() '解锁主窗口
[此贴子已经被作者于2020/11/4 10:24:37编辑过]