农行表DataColChanged事件
If e.DataRow("交易摘要").Contains("银证转帐") Then
Dim fdr As DataRow = DataTables("银证交割").Find("编号 = '" & e.DataRow("编号") & "'")
If fdr Is Nothing Then
fdr = DataTables("银证交割").AddNew
End If
fdr("编号") = e.DataRow("编号")
fdr("支出金额") = e.DataRow("支出金额")
fdr("收入金额") = e.DataRow("收入金额")
End If