- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126671)
-- 发布时间：2018/10/26 11:53:00
-- [求助]按钮
老师好，我想增加一个修改项目的按钮，下面的代码是增加项目的代码。
此主题相关图片如下：图像 1.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:增加项目.txt |
-- 发布时间：2018/10/26 12:10:00
--
Dim Val As String
Dim old As String = e.Form.controls("combobox1").text
If InputValue(Val, "新建项目", "请输入要新建项目的名称:") Then
If Val Is Nothing Then
Return
End If
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "数据库"
cmd.CommandText = "update {目录树} set [项目] = \'" & Val & "\' where [项目] = \'" & old & "\'"
If cmd.ExecuteNonQuery > 0 Then \'返回1表示增加成功
Else
MessageBox.Show("已存在项目[" & Val & "]!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If
End If
-- 发布时间：2018/10/26 14:28:00
--
老师，我是要修改项目名称的按钮代码，不是增加项目名称的代码。
-- 发布时间：2018/10/26 14:30:00
--
就是修改的，您确定您看懂代码了吗
-- 发布时间：2018/10/26 16:12:00
--
老师，你给我的按钮代码没看懂。
此主题相关图片如下：图像 103.png
[此贴子已经被作者于2018/10/26 16:25:30编辑过]
-- 发布时间：2018/10/26 16:42:00
--
If InputValue(Val, "修改项目", "请输入要新的项目的名称:") Then
-- 发布时间：2018/10/26 17:45:00
--
老师谢谢
此主题相关图片如下：图像 104.png
-- 发布时间：2018/10/26 20:27:00
--
Dim old As String = e.Form.controls("combobox1").text
Dim Val As String = old
If InputValue(Val, "修改项目", "请输入要新的项目的名称:") Then
-- 发布时间：2018/10/26 21:07:00
--
感谢老师