If e.DataCol.Name = "同时开通_手机银行"
If e.DataRow("同时开通_手机银行") = True Then
Dim dr As DataRow = DataTables("手机银行").AddNew
For Each dc As DataCol In DataTables("手机银行").DataCols
dr(dc.Name) = e.DataRow(dc.Name)
Next
else
dim dr as DataRow=DataTables("手机银行").Find("手机号码='" & e.datarow("手机号码") & "'") '这里假设唯一标识列为手机号码
if dr isnot nothing then
dr.delete
end if
end if
End If
提示:我是为了方便操作员更快的登记,因为当顾客开通手机银行时,会同时开通电话银行、网上银行等,这样的记录每天会登记很多,而我的目的,只是为了统计柜员的工作业绩