select case e.datacol.namecase "出piao人","出piao银行"
If e.DataRow.isnull("出piao人") = false AndAlso e.DataRow.isnull("出piao银行") =false Then
Dim dr As DataRow
dr = DataTables("pjtzhzb").Find("出piao人 = '" & e.DataRow("出piao人") & "' AND 出piao银行 = '" & e.DataRow("出piao银行") & "'")
If dr Is Nothing
dr = DataTables("pjtzhzb").addnew
dr("出piao人") = e.NewValue
dr("出piao银行") = e.NewValue
End If
End If
end select