方案二, 在订单主表上做两个按钮, 一个按钮为刷新订单主表, 一个按钮为刷新订单明细表
刷新订单主表按钮的代码为DataTables("订单主表").Load, 刷新订单明细表的按钮代码为:
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() '解锁主窗口
甜老师,这样做可否, 会产生什么问题呢
这两个方案那个好呢, 或者都不好, 有无更好的做法呢?