以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请问备注列不能做=判断吗? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147593) |
-- 作者:智友软件工作室 -- 发布时间:2020/3/20 8:27:00 -- [求助]请问备注列不能做=判断吗? 请问列类型为备注型的不能做字符相同的判断吗?项目一、二、三、四都是备注列,我是想如果存在相同数据是不添加的,但是不能判断到相同,而是一直可以添加,请问是因为是备注型的原因吗 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 数据表: [此贴子已经被作者于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 |