以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 怎么组合会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=176555)

--  作者:cnsjroom
--  发布时间:2022/4/18 10:38:00
--  会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 怎么组合会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式

当前会议状态表中有

会议日期(日期时间列)  时(整数列)  分(整数列)  秒(整数列)   会议时间(日期时间列)  五个字段

怎么实现会议日期  时  分 秒  组合成会议时间呢?

会议时间类似格式  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编辑过]

--  作者:有点蓝
--  发布时间:2022/4/18 11:45:00
--  
Dim d As Date = cdate(Format(d1, "yyyy-MM-dd") & “ ” & e.DataRow("时") & “:” & e.DataRow("分") & “:”  & e.DataRow("秒"))
--  作者:cnsjroom
--  发布时间:2022/4/18 12:43:00
--  回复:(有点蓝)Dim d As Date = cdate(Format(d1, "...

Select Case e.DataCol.Name
    Case "会议日期","时","分","秒"
        Dim d1 As Date = e.DataRow("会议日期")
        Dim d As Date = cdate(Format(d1, "yyyy-MM-dd") & " " & e.DataRow("时") & ":" & e.DataRow("分") & ":"  & e.DataRow("秒"))
        Output.Show(d)
        e.DataRow("会议时间")=d
End Select

 

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.1.30.2
错误所在事件:表,会议状态,DataColChanged
详细错误信息:
调用的目标发生了异常。
从字符串“2222-02-22 ::”到类型“Date”的转换无效。

 

麻烦老师继续指导下 谢谢!


--  作者:有点蓝
--  发布时间:2022/4/18 13:31:00
--  
判断一下时分秒是否有数据,有数据再合并