Foxtable(狐表)用户栏目专家坐堂 → [求助]请问备注列不能做=判断吗?


  共有2371人关注过本帖树形打印复制链接

主题:[求助]请问备注列不能做=判断吗?

帅哥哟,离线,有人找我吗?
智友软件工作室
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
[求助]请问备注列不能做=判断吗?  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107440 积分:546479 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/3/20 10:00:00 [只看该作者]

如果是SqlServer数据库,备注列正常创建后是ntext类型,不能做=比较,到数据库里把ntext改为nvarchar(max),或者nvarchar(1000)之类的

 回到顶部
帅哥哟,离线,有人找我吗?
智友软件工作室
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:912 积分:7445 威望:0 精华:0 注册:2013/2/25 13:10:00
  发帖心情 Post By:2020/3/20 10:48:00 [只看该作者]

ok


 回到顶部