Foxtable(狐表)用户栏目专家坐堂 → 会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 怎么组合会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式


  共有4079人关注过本帖树形打印复制链接

主题:会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 怎么组合会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
会议日期(日期时间列) 时(整数列) 分(整数列) 秒(整数列) 会议时间(日期时间列) 怎么组合会议时间类似格式 2022-04-18 10:35:21 或者其他包含日期时分秒的格式  发帖心情 Post By:2022/4/18 10:38:00 [只看该作者]

当前会议状态表中有

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

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/18 11:45:00 [只看该作者]

Dim d As Date = cdate(Format(d1, "yyyy-MM-dd") & “ ” & e.DataRow("时") & “:” & e.DataRow("分") & “:”  & e.DataRow("秒"))

 回到顶部
帅哥哟,离线,有人找我吗?
cnsjroom
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
回复:(有点蓝)Dim d As Date = cdate(Format(d1, "...  发帖心情 Post By:2022/4/18 12:43:00 [只看该作者]

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”的转换无效。

 

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


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105948 积分:538809 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/4/18 13:31:00 [只看该作者]

判断一下时分秒是否有数据,有数据再合并

 回到顶部