当前会议状态表中有
会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 五个字段
怎么实现会议日期 时 分 秒 组合成会议时间呢?
会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式
Select Case e.DataCol.Name
Case "会议日期","时","分","秒"
Dim d1 As Date = e.DataRow("会议日期")
Dim s As String= Format(d1, "yyyyMMdd") & e.DataRow("时") & e.DataRow("分") & e.DataRow("秒")
s= s.insert(12,":").insert(10,":").insert(8," ").insert(6,"-").insert(4,"-")
Output.Show(s)
Dim d As Date = cdate(s)
Output.Show(d)
e.DataRow("会议时间")=d
End Select
运行会报错:
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:表,会议状态,DataColChanged
详细错误信息:
调用的目标发生了异常。
指定的参数已超出有效值的范围。
参数名: startIndex
输出值为:2022-05-11 21:22:21
得到的值要怎么实现如下判断【判断当前系统时间达到上述会议时间之后就运行会议登录窗体打开,怎么操作呢?】
If Network.Ping("127.0.0.1") Then
DataTables("会议状态").LoadFilter="[会议时间] = '" & Date.today & "'" ‘导入当前日期的会议列表’
DataTables("会议状态").Load
Dim bb As DataRow =DataTables("会议状态").Find("会议时间 = '" & Date.today & "'and 会议状态=true") ‘导入当前日期的会议列表,且会议状态等于true’
If bb IsNot Nothing Then
vars("会议主题")=bb("会议主题")
'MessageBox.Show(1)
If vars("会议状态")="会议中" Then
MyTimers("计划1").Enabled = False
Else
If Forms("会议系统").opened Then
End If
If Forms("会议登录").opened Then
Else
Forms("会议登录").open
End If
End If
Else
If Forms("会议系统").opened Then
Forms("会议系统").Controls("Label1").text= "当前无进行中的会议!"
End If
If Forms("会议登录").opened Then
MyTimers("计划1").Enabled = True
Forms("会议登录").Close
Else
If Forms("会议主体").opened Then
MyTimers("计划1").Enabled = True
Forms("会议主体").Close
End If
End If
End If
Else
MessageBox.Show("当前会议服务器尚未开启,无任何可加入的会议!或联系系统管理员!","温馨提示")
End If
[此贴子已经被作者于2022/4/18 11:32:10编辑过]