共5 条记录, 每页显示 10 条, 页签: [1]

标题：插入那里的有错误，帮我看一看，不可见和不可编辑是逻辑型

1楼

dd-zdh 发表于：2011/5/6 13:31:00

Dim result As DialogResult
result=messagebox.show("确实要对表授权吗?点击[是]后,将增加记录!","提示!!!",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If Result=DialogResult.Yes Then
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim lst1,lst2,lst3 As String

    lst1=e.Form.controls("ComboBox1").text
    lst2=e.Form.controls("ComboBox2").text
    lst3=e.Form.controls("ComboBox3").text
    If lst1<>"" And lst2<>"" And lst3<>"" Then
    cmd.C
    cmd.CommandText="insert into {授权表} (部门,用户名,表名,列名,不可见,不可编辑) values ('" & lst1 & "','" & lst2 & "','" & lst3 & "',"" , True ,True) " //这段有错误帮我看一看
    cmd.ExecuteNonQuery
    Else
        MessageBox.Show("数据不能为空!", "提示")
    End If

2楼

blackzhu 发表于：2011/5/6 14:03:00

错误提示是什么?

3楼

lihe60 发表于：2011/5/6 14:08:00

应该传上附件。

4楼

狐狸爸爸 发表于：2011/5/6 14:12:00

列有6个，指定的值只有5个，是不是应该：

cmd.CommandText = "insert into {授权表} (部门,用户名,表名,列名,不可见,不可编辑) values ('" & lst1 & "','" & lst2 & "','" & lst3 & "','" & lst4 & "', True ,True)"

5楼

blackzhu 发表于：2011/5/6 14:32:00

我可能是马后炮,刚才我也在想是不是对应的值不对?

共5 条记录, 每页显示 10 条, 页签: [1]