| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]重复值查找 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104598) |
| -- 作者：积水成渊 -- 发布时间：2017/8/1 16:16:00 -- [求助]重复值查找 我输入一个名字，然后在表A中查找这个名字，如果这个名字存在这个提示存在重复值，如果不存在则执行下一段代码； Dim Val As string If InputValue(Val, "设置功能模块名称", "请输入功能模块的名称:") Then Dim dr As DataRow Dim s As string =Val dr = DataTables("SYS_Ribbon").Find("ItemText = \'"& Val & "\'") If s = dr("ItemText") then \'MessageBox.Show(s) Dim Result As DialogResult Result = MessageBox.Show("该功能模块名称已经存在，是否覆盖原有功能模块？", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) If Result = DialogResult.Yes Then Win.FoxLib.Syscmd.execproc("系统数据源","exec C_新增商品综合信息模块 \'"& Val & "\'") Else \'Win.FoxLib.Syscmd.execproc("系统数据源","exec C_新增商品综合信息模块 \'"& Val & "\'") End If else Win.FoxLib.Syscmd.execproc("系统数据源","exec C_新增商品综合信息模块 \'"& Val & "\'") End If End If 这段代码报错，怎么修改，这段代码要实现的功能是如何存在重复值，执行一个存储过程，不存在的话执行另一个存储过程 |
| -- 作者：有点甜 -- 发布时间：2017/8/1 16:43:00 -- Dim s As String If InputValue(s, "设置功能模块名称", "请输入功能模块的名称:") Then Dim dr As DataRow dr = DataTables("SYS_Ribbon").Find("ItemText = \'" & s & "\'") If dr IsNot Nothing Then MessageBox.Show(s & "重复") Else Dim Result As DialogResult Result = MessageBox.Show("该功能模块名称已经存在,是否覆盖原有功能模块?", "提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question) If Result = DialogResult.Yes Then \'Win.FoxLib.Syscmd.execproc("系统数据源","exec C_新增商品综合信息模块 \'"& s & "\'") Else \'Win.FoxLib.Syscmd.execproc("系统数据源","exec C_新增商品综合信息模块 \'"& s & "\'") End If End If End If |
| -- 作者：积水成渊 -- 发布时间：2017/8/1 16:47:00 -- 感谢，万分感谢，问题已解决 |