调试技巧：
http://www.foxtable.com/webhelp/scr/1485.htm
For Each str As String In ary
msgbox(str)
msgbox(str.Split(":")(0))
msgbox(str.Split(":")(1))
Dim d As Date = new Date(1900,1,1,str.Split(":")(0),str.Split(":")(1), 0)
msgbox(d)
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 & "段"
msgbox(cname )
Dim temp As Date = CDate(e.DataRow(cname))
temp = new Date(1900, 1, 1, temp.Hour, temp.Minute, 0)
msgbox(temp )
If e.DataRow.IsNull(cname) OrElse temp > d Then
e.DataRow("第" & idx+1 & "段") = d
End If
Else
End If
Next
加好友 
发短信
Post By：2019/2/20 16:06:00 [显示全部帖子]
