以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  客户添加  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=175299)
--  作者：Dxm123456789
--  发布时间：2022/2/28 12:18:00
--  客户添加
录入窗口中加了一个按钮，订单中新输入的客户如果客户表中没有可以添加，如果已存在则提示
这是我写的代码，
Dim dd As Row = Tables("订单表").Current
Dim kk As Col = Tables("客户表").Cols("客户")
If dd("客户") = kk Then
    MessageBox.Show("此客户已存在!", "提示")
Else
    Dim kh As Row = Tables("客户表").AddNew()
    kh("客户") = dd("客户")
    kh("电话") = dd("电话")
    kh("公司名称") = dd("公司名称")
 MessageBox.Show("客户添加成功!", "提示")
End If

详细错误信息：
重载决策失败，因为没有 Public“=”可以用这些参数调用:
    \'Public Shared Operator =(a As String, b As String) As Boolean\':
        与参数“b”匹配的参数无法从“Col”转换为“String”。
--  作者：有点蓝
--  发布时间：2022/2/28 13:41:00
--  
Dim dd As Row = Tables("订单表").Current
Dim dr as datarow = DataTables("客户表").find("客户=\'" & dd("客户") & "\'")
If dr isnot nothing Then
    MessageBox.Show("此客户已存在!", "提示")
Else
    Dim kh As Row = Tables("客户表").AddNew()
    kh("客户") = dd("客户")
    kh("电话") = dd("电话")
    kh("公司名称") = dd("公司名称")
 MessageBox.Show("客户添加成功!", "提示")
End If