以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请问备注列不能做=判断吗?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147593)

--  作者:智友软件工作室
--  发布时间:2020/3/20 8:27:00
--  [求助]请问备注列不能做=判断吗?
请问列类型为备注型的不能做字符相同的判断吗?项目一、二、三、四都是备注列,我是想如果存在相同数据是不添加的,但是不能判断到相同,而是一直可以添加,请问是因为是备注型的原因吗


录入窗口:

图片点击可在新窗口打开查看此主题相关图片如下:111.png
图片点击可在新窗口打开查看
确定的代码:
Dim sypp As String = e.Form.Controls("TextBox1").Value
Dim cpzl As String = e.Form.Controls("TextBox2").Value
Dim azbm As String = e.Form.Controls("TextBox3").Value
If sypp = "" Then
    Messagebox.show("请输入安装包的适用品牌!","提示")
    Return
End If
If cpzl = "" Then
    Messagebox.show("请输入安装包的产品种类!","提示")
    Return
End If
If azbm = "" Then
    Messagebox.show("请输入安装包的名称!","提示")
    Return
End If
Dim dr As DataRow = DataTables("通用设置").SQLFind("类型 = \'配件安装包\' and 项目二 = \'" & sypp & "\' and 项目三 = \'" & cpzl & "\' and 项目四 = \'" & azbm & "\'")
If dr IsNot Nothing Then
    Messagebox.show("安装包已存在!","提示")
    Return
Else
    Dim r As Row = Tables("通用设置").Rows.AddNew()
    r("类型") = "配件安装包"
    r("项目一") = sypp & "-" & cpzl & "-" & azbm
    r("项目二") = sypp
    r("项目三") = cpzl
    r("项目四") = azbm
    DataTables("通用设置").Save()
End If
e.Form.close



数据表:

图片点击可在新窗口打开查看此主题相关图片如下:222.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/3/20 8:28:42编辑过]

--  作者:有点蓝
--  发布时间:2020/3/20 10:00:00
--  
如果是SqlServer数据库,备注列正常创建后是ntext类型,不能做=比较,到数据库里把ntext改为nvarchar(max),或者nvarchar(1000)之类的
--  作者:智友软件工作室
--  发布时间:2020/3/20 10:48:00
--  
ok