nbsp; If CInt(PicRs!cj) >= CInt(TxtFsd(3).Text) And CInt(PicRs!cj) < CInt(TxtFsd(2).Text) Then
Icj(3) = Icj(3) + 1
ComLst(3).AddItem PicRs!XM
End If
If CInt(PicRs!cj) >= CInt(TxtFsd(4).Text) And CInt(PicRs!cj) < CInt(TxtFsd(3).Text) Then
Icj(4) = Icj(4) + 1
ComLst(4).AddItem PicRs!XM
End If
If CInt(PicRs!cj) >= CInt(TxtFsd(5).Text) And CInt(PicRs!cj) < CInt(TxtFsd(4).Text) Then
Icj(5) = Icj(5) + 1
ComLst(5).AddItem PicRs!XM
End If
If CInt(PicRs!cj) >= CInt(TxtFsd(6).Text) And CInt(PicRs!cj) < CInt(TxtFsd(5).Text) Then
Icj(6) = Icj(6) + 1
ComLst(6).AddItem PicRs!XM
End If
If CInt(PicRs!cj) >= CInt(TxtFsd(7).Text) And CInt(PicRs!cj) < CInt(TxtFsd(6).Text) Then
Icj(7) = Icj(7) + 1
ComLst(7).AddItem PicRs!XM
End If
.MoveNext
Loop
End With
Label5.Caption = PicRs.RecordCount
For i = 0 To 7
TxtCount(i).Caption = Icj(i)
Next i
PicRs.Close
End Sub
Private Sub DataOut()
For i = 0 To 7
Icj(i) = 0
ComLst(i).Clear
ComLst(i).Text = "请选"
TxtCount(i).Caption = ""
Next i
End Sub
4.数据分析统计界面与代码设计:
代码分析:
Dim RSCount As ADODB.Recordset
Dim CmdExec As ADODB.Command
Dim i As Integer
Dim Jwsf As String
Dim AddFlg As Boolean
