请问，下面的代码有问题吗，为什么对查找到的行，无论“共享人”列是否有数据，都不会写入或添加内容。
Dim txt As String = e.Form.Controls("客户全称").Text
If txt = "" Then
MessageBox.Show("请输入需要授权的客户全称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
Dim Filter As String
Filter="[客户名称] = '" & txt & "'"
Dim dr As DataRow
dr = DataTables("客户档案").SQLFind(Filter)
If dr IsNot Nothing '如果找到, 则设置各列内容
If dr.IsNull("共享人") = True Then
dr("共享人") = user.name &","
Else
Dim nms() As String = dr("共享人").Split(",")
For Each nm As String In nms
If nm = User.Name Then '如果授权用户包括登录用户所属的分组或其用户名
MessageBox.Show("该客户已经被授权,请核实!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Return '返回True
End If
Next
dr("共享人") = user.name &"," & dr("共享人")
End If
Else
MessageBox.Show("该客户尚未在公司建档,请先建档! 或检查输入是否有误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
End If
加好友 
发短信
Post By：2021/12/13 18:19:00 [显示全部帖子]
