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

 

各位老师，

 

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

 

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

 

 

此主题相关图片如下：图片2.png

 

 

此主题相关图片如下：图片1.png

代码应该没问题，你试试重置列

 

http://www.foxtable.com/webhelp/scr/1469.htm

 

mark

甜甜老师  为什么我  的总是有问题呢   我也托管了zkemkeeper.dll

 

看5楼、7楼

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=80122&skin=0

 

甜甜老师  我用那个列子

 

请在foxtable的dll那里删除此dll的引用。

用4楼的代码在命令窗口中测试,第一次都可以的成功执行,第二次foxtable就卡死了,无响应了,必须在任务窗口中结束重新打开后又可以,

调试看运行到哪一句代码后出问题。