主题：考勤机数据下载 代码 求助

各位老师，

再求教以下事项，代码好象有点问题，调试了好久，出勤表的班次里面就是没有结果，显示空白

Select Case e.DataCol.Name
    Case "工号","日期"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("工号") OrElse dr.IsNull("日期")  Then
            dr("班次") = Nothing
        Else
            Dim filter As String
            filter = "工号 = '" & dr("工号") & "' And 日期 = '" & dr("日期") & "'"
            pr = DataTables("排班表").Find(filter)
            If pr IsNot Nothing Then
                dr("班次") = pr("班次")
            End If
        End If
End Select