你好 老师 看了这个范例 我有些问题 就是我的数据跟他的数据有个区别 就是中间有两个空格 会报错
此主题相关图片如下：lqo13w~$n24tkvm1df~19.png
此主题相关图片如下：uhh$lthbt_479urzs}hfyb.png
Select Case e.DataCol.Name
Case "考勤时间"
If e.DataRow.IsNull("考勤时间") = False Then
Dim ary() As String = e.DataRow("考勤时间").split(" ")
For Each str As String In ary
Dim d As Date = new Date(1900,1,1,str.Split(":")(0),str.Split(":")(1), 0)
Dim fdr As DataRow = DataTables("班段设置").Find("起始时间 <= #" & d & "#", "起始时间 desc")
If fdr IsNot Nothing Then
Dim Idx As String = Tables("班段设置").FindRow(fdr)
Dim cname As String = "第" & idx+1 & "段"
Dim temp As Date = CDate(e.DataRow(cname))
temp = new Date(1900, 1, 1, temp.Hour, temp.Minute, 0)
If e.DataRow.IsNull(cname) OrElse temp > d Then
e.DataRow("第" & idx+1 & "段") = d
End If
Else
End If
Next
End If
End Select
这一段该如何修改呀
加好友 
发短信
Post By：2019/2/20 15:50:00 [显示全部帖子]
