界面上有一个关联表和 两个主表, 这两个主表通过关联表的2个字段,各自关联。 现在要求刷新时,将3个表都刷新,在界面上可以用刷新按钮刷新其中一个主表,再通过下面的代表可以刷新关联表,但不能刷新另一个主表,请问要咋办?
If CurrentTable.Name="医疗业务指标管理表" Then
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() '解锁主窗口
end if
此主题相关图片如下:1.png