如何根据“上班时间表”在“考勤表”指定“列”，随机生成时间，在同一天随机生成时间不能重复？
If e.DataCol.Name = "班别" Then
If e.NewValue Is Nothing Then '
e.DataRow("第1段") = Nothing
Else
Dim dr As DataRow
dr = DataTables("上班时间表").Find("[班别] = '" & e.NewValue & "'")
If dr IsNot Nothing Then
' e.DataRow("第1段") = dr("第1段")
' 取随机数据，("第1段")的时间-15分钟，提前15分钟，("第1段")的时间+10分钟，延后10分钟，
e.DataRow("第1段") = dr(Rand.Next((("第1段") - 900), (("第1段")) + 600 ) )
End If
End If
End If
红字报错
错误所在事件：表，考勤表， DataColChanged
详细错误信息：
调用的目标发生了异常。
从字符串“第1段”到类型“Double”的转换无效。
输入字符串的格式不正确。
加好友 
发短信
Post By：2022/4/27 18:56:00 [只看该作者]
