这句话里面的插入时z2,z3总报错，因为那两列是逻辑型 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 这句话里面的插入时z2,z3总报错，因为那两列是逻辑型

共有10936人关注过本帖树形打印复制链接主题：这句话里面的插入时z2,z3总报错，因为那两列是逻辑型

dd-zdh

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：74 积分：795 威望：0 精华：0 注册：2011/4/7 15:26:00

这句话里面的插入时z2,z3总报错，因为那两列是逻辑型 发帖心情

Post By：2011/5/6 15:04:00 [只看该作者]

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