以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  插入那里的有错误，帮我看一看，不可见和不可编辑是逻辑型  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9752)
--  作者：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

--  作者：blackzhu
--  发布时间：2011/5/6 14:03:00
--  
错误提示是什么?
--  作者：lihe60
--  发布时间：2011/5/6 14:08:00
--  
应该传上附件。
--  作者：狐狸爸爸
--  发布时间：2011/5/6 14:12:00
--  

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

 

cmd.CommandText = "insert into {授权表} (部门,用户名,表名,列名,不可见,不可编辑) values (\'"  & lst1 & "\',\'" & lst2 & "\',\'" & lst3 & "\',\'" & lst4 & "\', True ,True)"
--  作者：blackzhu
--  发布时间：2011/5/6 14:32:00
--  
我可能是马后炮,刚才我也在想是不是对应的值不对?