我输入一个名字，然后在表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
这段代码报错，怎么修改，这段代码要实现的功能是如何存在重复值，执行一个存储过程，不存在的话执行另一个存储过程
加好友 
发短信
Post By：2017/8/1 16:16:00 [显示全部帖子]
