Dim fhs() As String = {"德","能","勤","绩","廉"}
Dim pj2s() As String = {"好","较好","一般","差"}
Dim djs() As String = {"A","B","C","D"}
Dim dlqjs() As String = {"题号1","题号2","题号3","题号4","题号5"}
For i As Integer = 0 To fhs.length - 1
For j As Integer = 0 To djs.length - 1
dr(fhs(i) & djs(j) & "人") = DataTables("答案1").Compute("Count("& dr(dlqjs(i)) &")", "" & dr(dlqjs(i)) & " = '"& djs(j) &"' And [单位] = '" & dr("单位") & "'")
加好友 
发短信
Post By：2021/2/20 14:30:00 [显示全部帖子]
