“待审核订单_Table1”绑定的是销售订单,在窗口中“待审核订单_Table1”的currentChanged事件加了msgbox显示正常,在销售订单表中的datacolchanged事件和currentChanged事件没有触发。
“待审核订单_Table1”窗口currentChanged事件代码:
If Tables("待审核订单_Table1").Rows.Count > 0 Then
Tables("待审核订单_Table2").Filter = "订单号 = '" & Tables("待审核订单_Table1").Current("订单号") & "'"
End If
销售订单datacolchanged事件代码:
Select Case e.DataCol.Name
Case "总金额","折扣","已付款"
Dim pr As DataRow
pr = DataTables("订单付款明细表").Find("订单号 = '" & e.DataRow("订单号") & "'")
If pr IsNot Nothing Then
DataTables("订单付款明细表").DataCols("订单号").RaiseDataColChanged(pr)
End If
End Select
销售订单currentChanged事件代码:
If e.Table.Current IsNot Nothing Then
Dim Filter As String = "订单号 = '" & e.Table.Current("订单号") & "'"
If DataTables("销售明细表").Find(Filter) Is Nothing Then '如果对应的订单明细没有加载过
DataTables("销售明细表").AppendLoad(Filter) '则追载此订单的订单明细
End If
End If