If e.DataCol.Name = "结算账户" Then
For Each dt As DataTable In DataTables
If dt.Name = "结算账户" Then
‘Continue For ’是否多余啊
For Each dr As DataCol In dt.DataCols
If dr.Name = "结算账户" Then
Dim ds As List(of DataRow)
ds = dt.Select("结算账户 = '" & dr("结算账户") & "'")
If ds IsNot Nothing Then
For Each d As DataRow In ds
d("结算账户") = e.NewValue
Next
End If
End If
Next
End If
Next
End If