甜版:我有点懵,这是我的代码,您费心给改改!
Dim zhkdmjyy As DataRow = DataTables("组合框代码").DataRows(11) '组合框代码中的第11行
Dim Multi As String = zhkdmjyy("列表项目") '组合框代码中的第11行的列表项目一列的值
Dim Values() As String = Multi.split("|") '用号分割成姓名数据
For Index As Integer = 0 To Values.Length - 1 '从0开始
Sheet(13+Index,0).Value = index+1 '从1开始
Sheet(13+Index,1).Value = Values(Index) '从0开始的姓名
Dim bljypz As Integer = DataTables("部品质量管理").getValues("编号图号", "检验员 = '" & Values(Index) & "' And 检验区分 = '其它' And 日期>= # " & d1 & "# And 日期<= # " & d & "#").count '对不重复的图号进行计数
If bljypz = "0" Then Sheet(13+Index,2 ).Value = " " Else Sheet(13+Index,2 ).Value = bljypz
Dim bljysl As Integer = DataTables("部品质量管理").Compute("Sum([交检])", "检验员 = '" & Values(Index) & "' And 检验区分 = '其它' And 日期>= # " & d1 & "# And 日期<= # " & d & "#")
If bljysl = "0" Then Sheet(13+Index,3 ).Value = " " Else Sheet(13+Index,3 ).Value = bljysl
Sheet(13+Index+1,0).Value = index+1+1
Sheet(13+Index+1,1).Value = "合计"
If bljypz = 0 Then Sheet(13+Index+1,2 ).Value = "" Else Sheet(13+Index+1,2 ).Value = bljypz
If bljysl = 0 Then Sheet(13+Index+1,3 ).Value = "" Else Sheet(13+Index+1,3 ).Value = bljysl
Next
谢谢!