Private Sub Command1_Click()
List1.Clear
List2.Clear
List3.Clear
List4.Clear
Dim c, d, e, f As Variant
c = 0
Dim t As Integer
Dim n1 As New ADODB.Recordset
Dim n2 As New ADODB.Recordset
Dim n3 As New ADODB.Recordset
Dim n4 As New ADODB.Recordset
Dim rs As New ADODB.Recordset
rs.Open "select gcs from b_gcs", db, adOpenStatic, adLockReadOnly
Dim i As String
For t = 0 To Val(rs.RecordCount) - 1
i = Trim(rs.Fields("gcs").value)
rs.MoveNext
n1.Open "select sum(jfzj) as f1 from b_jfzj where gcs= '" & i & "' and (jfsj>='" & DT1.value & "' and jfsj<='" & DT2.value & "')", db, adOpenStatic, adLockReadOnly
n2.Open "select sum(jf) as f1 from b_hfjf where gcs= '" & i & "' and (hfsj>='" & DT1.value & "' and hfsj<='" & DT2.value & "')", db, adOpenStatic, adLockReadOnly
n3.Open "select sum(jfzj) as f1 from b_wljf where gcs= '" & i & "' and (jfsj>='" & DT1.value & "' and jfsj<='" & DT2.value & "')", db, adOpenStatic, adLockReadOnly
c = n1.Fields("f1")
d = n2.Fields("f1")
If IsNull(d) Then
d = 0
End If
e = n3.Fields("f1")
If IsNull(e) Then
e = 0
End If
List1.AddItem i & Space(13 - LenB(Trim(i))) & c
List2.AddItem i & Space(13 - LenB(Trim(i))) & e
List3.AddItem i & Space(13 - LenB(Trim(i))) & d
List4.AddItem i & Space(13 - LenB(Trim(i))) & c + e + d
List1.AddItem "***********************"
List2.AddItem "***********************"
List3.AddItem "***********************"
List4.AddItem "***********************"
p = p + d
s = s + c
u = u + e
n1.Close
n2.Close
n3.Close
Next t
rs.Close
List1.AddItem "技术部总积分:" & s
List3.AddItem "技术部扣罚总分:" & p
List2.AddItem "技术部网络总分:" & u
List4.AddItem "技术部总分:" & u + s + p
End Sub