增加一个客户ID编号，拒绝客户姓名重名问题：
代码：
if e.datacol.name = "客户ID"
if e.datarow.isnull("客户ID") = false
dim dr as datarow = datatables("客户资料").find("客户ID = '" & e.datarow("客户ID") & "'")
if dr isnot nothing
e.datarow("客户姓名") = dr("客户姓名")
e.datarow("客户电话") = dr("客户电话")
e.datarow("客户地址")= dr("客户地址")
'…………
else
e.datarow("客户姓名") = nothing
e.datarow("客户电话") = nothing
e.datarow("客户地址")= nothing
'…………
end if
else
e.datarow("客户姓名") = nothing
e.datarow("客户电话") = nothing
e.datarow("客户地址")= nothing
'…………
end if
end if
加好友 
发短信
Post By：2020/3/26 2:32:00 [显示全部帖子]
