- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]窗口代码问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77516)
-- 发布时间：2015/11/19 16:40:00
-- [求助]窗口代码问题
窗口部分代码如下，提示转换有问题，错误提示如截图：
代码：
Dim drs1 As List (of DataRow) = dt.Select("月份=\'" & s3 & "\'")
For Each dr1 As DataRow In drs1
Dim ss1 As Single =0.00
t1.Filter = "日期 < #" & dt2 & "# And 日期 >= #" & dt1 & "#"
Dim drss1 As List (of DataRow) =DataTables("医生考勤表") .Select("[医生姓名]=\'" & dr1("医生姓名") & "\'" And t1.filter)
For Each dr As DataRow In drss1
If dr IsNot Nothing Then
If dr("上午")="迟到" Then
ss1=ss1+0.5
End If
End If
Next
dr1("考勤_迟到") =ss1
Next
此主题相关图片如下：qq截图20151119163659.png
-- 发布时间：2015/11/19 16:44:00
--
Dim drss1 As List (of DataRow) =DataTables("医生考勤表") .Select("[医生姓名]=\'" & dr1("医生姓名") & "\' and " & t1.filter)
-- 发布时间：2015/11/19 17:02:00
--
对呀。谢谢袍哥！