以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  不能写入数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173728)

--  作者：foxyuan --  发布时间：2021/12/13 18:19:00 --  不能写入数据 请问，下面的代码有问题吗，为什么对查找到的行，无论“共享人”列是否有数据，都不会写入或添加内容。 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

--  作者：有点蓝 --  发布时间：2021/12/13 20:22:00 --   没有保存             dr("共享人") = user.name &"," & dr("共享人") dr.save         End If