以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这句话里面的插入时z2,z3总报错，因为那两列是逻辑型  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=9754)
--  作者：dd-zdh
--  发布时间：2011/5/6 15:04:00
--  这句话里面的插入时z2,z3总报错，因为那两列是逻辑型
Dim cmd As New SQLCommand
Dim lst1,lst2,lst3,z1 As String
Dim i,ilst As Integer
Dim z2,z3 As Boolean
Dim clst1 As WinForm.CheckedListBox
Dim clst2 As WinForm.CheckedListBox
    clst1=e.Form.Controls("CheckedListBox1")
    clst2=e.Form.controls("checkedlistbox2")
    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   
        ilst=clst1.Items.Count
        For i=0 To ilst -1
        z1=clst1.items(i)   
           If clst1.GetItemChecked(i) Then
               z2=True
           End If
           If cLst2.GetItemChecked(i) Then
                z3=True
           End If    
    cmd.C
    cmd.CommandText="insert into {授权表} (部门,用户名,表名,列名,不可见,不可编辑) values (\'" & lst1 & "\',\'" & lst2 & "\',\'" & lst3 & "\',\'" & z1 & "\',z2,z3) "
    cmd.ExecuteNonQuery
    Next
   
    Else
        MessageBox.Show("数据不能为空!", "提示")
    End If
--  作者：lihe60
--  发布时间：2011/5/6 15:10:00
--  
没有附件，只有高手才能帮助的。
--  作者：狐狸爸爸
--  发布时间：2011/5/6 15:11:00
--  
cmd.CommandText="insert into 授权表 (部门,用户名,表名,列名,不可见,不可编辑) values (\'" & lst1 & "\',\'" & lst2 & "\',\'" & lst3 & "\',\'" & z1 & "\'," & z2 & "," & z3  & ")"
--  作者：dd-zdh
--  发布时间：2011/5/6 15:24:00
--  
谢谢！变量引用的规则不是很熟
--  作者：blackzhu
--  发布时间：2011/5/6 15:27:00
--  
For i=0 To ilst -1  这边的定义是不是少什么了,这样也行的吗?
--  作者：狐狸爸爸
--  发布时间：2011/5/6 15:31:00
--  

建议楼主看看：

http://help.foxtable.com/topics/1284.htm