想做个VB投票的，不用统计，
怎么只能选3个复选框，且把3个复选框的值写到数据库。
例：
GH   XM    TPZP
1   张三     2
1   张三     4
1   张三     5

Dim CodeData() As String

Private Sub Command1_Click()
Dim i As Integer, j As Integer
    
    j = 0
    
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
            ReDim Preserve CodeData(j)
            CodeData(j) = j + 1 & "," & Check1(i).Name & "," & "1"    '后面这个1～有没有没啥差～看你后面Database怎Updata 
            j = j + 1
        End If
    Next i
    
    If j < 4 Then
        Call Updata2DataBase
    Else
        ReDim CodeData(0)
        Call Init
        MsgBox "Check Too More..."
    End If
    
End Sub

Private Sub Form_Initialize()
    ReDim CodeData(0)
End Sub

Private Sub Form_Load()
Dim i As Integer

    For i = 0 To Check1.Count - 1
        Check1(i).Value = 0
    Next i
    
End Sub

Private Sub Init()
Dim i As Integer

    For i = 0 To Check1.Count - 1
        Check1(i).Value = 0
    Next i
    
End Sub

Private Sub Updata2DataBase()
    MsgBox "Connect to Database !"    '这之后我就不熟了～待高手补上～
End Sub

[ 本帖最后由 wube 于 2011-6-7 17:11 编辑 ]

   Dim i As Integer
   Dim xCount As Long
   Dim B() As Integer
    For i = 0 To Check1.Count - 1
        If Check1(i).Value = 1 Then
       A = A & Check1(i).Caption & ","（取到3个值，逗号隔开）
        End If
          Next i   
  B = Split(A, ",")（这句提示类型不匹配！）
            zp1.Text = B(0)
           zp2.Text = B(1)
         zp3.Text = B(2)
    把3个值分到3个文本框，再写到数据库。

Dim B() As Integer => Error
Chang to => Dim B() As String

A = A & Check1(i).Caption & ","（取到3个值，逗号隔开）

哪来的 A ?

[ 本帖最后由 wube 于 2011-6-13 16:42 编辑 ]

谢谢！Dim B() As Integer
定义错了。有时候脑子老容易想歪~~

我想知道怎么控制点击复选框第4个时，提示只能选3个。
怎么触发它呢？

可能是这样吧～

Dim CodeData() As String
Dim SelectNumber As Integer

Private Sub Command1_Click()
Dim i As Integer, j As Integer
    
    j = 0
    
    For i = 0 To chkCheck.Count - 1
        If chkCheck(i).Value = 1 Then
            ReDim Preserve CodeData(j)
            CodeData(j) = j + 1 & "," & chkCheck(i).Name & "," & "1"
            j = j + 1
        End If
    Next i
    
    Call Updata2DataBase
    Call Init

End Sub

Private Sub chkCheck_Click(Index As Integer)
    
    If chkCheck(Index).Value = 1 Then
        SelectNumber = SelectNumber + 1
    Else
        SelectNumber = SelectNumber - 1
    End If
    
    If SelectNumber > 3 Then MsgBox "Check Too More...": chkCheck(Index).Value = 0
    
End Sub

Private Sub Form_Initialize()
    ReDim CodeData(0): SelectNumber = 0
End Sub

Private Sub Form_Load()
Dim i As Integer

    For i = 0 To chkCheck.Count - 1
        chkCheck(i).Value = 0
    Next i
    
End Sub

Private Sub Init()
Dim i As Integer

    For i = 0 To chkCheck.Count - 1
        chkCheck(i).Value = 0
    Next i
    
    ReDim CodeData(0):SelectNumber =0
    
End Sub

Private Sub Updata2DataBase()
    MsgBox "Connect to Database !"
End Sub

写漏了等等又会有人来批了～要写完整点比较保险～

[ 本帖最后由 wube 于 2011-6-13 18:39 编辑 ]

这样好像也一样～

Private Sub chkCheck_Click(Index As Integer)
    
    If chkCheck(Index).Value = 1 Then
        SelectNumber = SelectNumber + 1
        If SelectNumber > 3 Then MsgBox "Check Too More...": chkCheck(Index).Value = 0
    Else
        SelectNumber = SelectNumber - 1
    End If
    
End Sub

谢谢！