|
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
|
加好友 
发短信
Post By：2017/8/1 16:43:00 [显示全部帖子]
