Select Case e.DataCol.Name
Case "汇piao金额"
Dim prs As List(Of DataRow)
prs = DataTables("商承支付").Select("汇piao编号 = '" & e.DataRow("汇piao编号") & "'")
If prs IsNot Nothing Then
For Each pr As DataRow In prs
DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
Next
End If
End Select
Select Case e.DataCol.Name
Case "汇piao编号"
Dim prs As List(Of DataRow)
prs = DataTables("商承支付").Select("汇piao编号 = '" & e.oldvalue & "'")
If prs IsNot Nothing Then
For Each pr As DataRow In prs
DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
Next
End If
prs = DataTables("商承支付").Select("汇piao编号 = '" & e.newvalue & "'")
If prs IsNot Nothing Then
For Each pr As DataRow In prs
DataTables("商承支付").DataCols("汇piao编号").RaiseDataColChanged(pr)
Next
End If
End Select
Select Case e.DataCol.Name
Case "支付金额",
Dim pr As DataRow
pr = DataTables("商承回款").Find("汇piao编号 = '" & e.DataRow("汇piao编号") & "'")
If pr IsNot Nothing Then
DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
End If
'Case "汇piao编号"
'Dim pr As DataRow
'pr = DataTables("商承回款").Find("汇piao编号 = '" & e.oldvalue & "'")
'If pr IsNot Nothing Then
' DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
'End If
'pr = DataTables("商承回款").Find("汇piao编号 = '" & e.newvalue & "'")
' If pr IsNot Nothing Then
' DataTables("商承回款").DataCols("汇piao编号").RaiseDataColChanged(pr)
' End If
End Select