Foxtable(狐表)用户栏目专家坐堂 → [求助]通过窗口表控件向数据库里面写入时间的格式没有时分秒


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

主题:[求助]通过窗口表控件向数据库里面写入时间的格式没有时分秒

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


加好友 发短信
等级:婴狐 帖子:19 积分:384 威望:0 精华:0 注册:2017/9/27 17:57:00
[求助]通过窗口表控件向数据库里面写入时间的格式没有时分秒  发帖心情 Post By:2018/2/6 19:58:00 [只看该作者]

窗口里的表控件SQLtable设置好后,控件生成后列的属性也设置了dateLongTime,数据库里面设置的是datetime

直接show  dt 是包含的时分秒的,就是写入列的时候没有时分秒,怎么才能向数据库里面写这个数据的时候带上时分秒

 


图片点击可在新窗口打开查看此主题相关图片如下:dt的时间.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:写到表里的时间.png
图片点击可在新窗口打开查看

Tables("A080_QT站点接收界面_Table1").Fill("Select [NO],[SiteNo],[CodeNo],[CodeNo2],[ProductModel],[Quantity],[WorkOrderNo],[Condition],[Intime],[InUser],[Outtime],[OutUser],[Lock],[ClientID] Fr m {A9999} where C ","TOPNO1",False)
Tables("A080_QT站点接收界面_Table1").Cols("Intime").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)
Tables("A9999").ApplyFilter = False
Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()
MessageBox.show( dt )

Dim bl1 As WinForm.TextBox = e.Form.Controls("产品编号1输入框")
Dim jssl As WinForm.Label = e.Form.Controls("接收数量")

Dim bl1v As String = bl1.value
Dim jsslv As Integer = jssl.text
Dim i As Integer = jsslv
Dim cc As DataRow
Dim dd As DataRow
Dim ee As DataRow
cc = DataTables("A080_QT站点接收界面_Table1").Find("CodeNo = '"& bl1.value & "'AND Condition = 8 AND SiteNo = 'A080' ","Intime desc") '查询状态为8待收入的
dd = DataTables("A080_QT站点接收界面_Table1").Find("CodeNo = '"& bl1.value & "'AND SiteNo = 'A080' ","Intime desc") '
ee = DataTables("A080_QT站点接收界面_Table1").Find("CodeNo = '"& bl1.value & "'AND Condition = 1 AND SiteNo = 'A080' ","Intime desc")

If bl1v = ""
    MessageBox.show("请输入产品编号1")
Else If dd Is Nothing Then '有查到数据
    messagebox.show("无账品")
Else If dd IsNot Nothing Then
    'If cc IsNot Nothing Then
    MessageBox.show("未过账,请收入站点")
    If ee IsNot Nothing Then
        MessageBox.show("已过账")
    Else
        Dim dr As Row
        Dim filter As String
        filter = "CodeNo = '"& bl1.value & "'AND Condition = 8 AND SiteNo = 'A080' "
        Tables("A080_QT站点接收界面_Table1").filter = filter
        dr = Tables("A080_QT站点接收界面_Table1").Rows(0)
        dr("InUser") = user.name
        dr("Intime") = dt
        dr("Condition") = 1
        i =i+1
        jssl.text = i
    End If
End If
DataTables("A080_QT站点接收界面_Table1").Save()
e.Form.Controls("产品编号1输入框").Select
Tables("A080_QT站点接收界面_Table1").ApplyFilter = False


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/6 20:25:00 [只看该作者]

Intime有没有绑定窗口日期控件?

赋值后弹出单元格值看看

        Dim dr As Row
        Dim filter As String
        filter = "CodeNo = '"& bl1.value & "'AND Condition = 8 AND SiteNo = 'A080' "
        Tables("A080_QT站点接收界面_Table1").filter = filter
        dr = Tables("A080_QT站点接收界面_Table1").Rows(0)
        dr("InUser") = user.name
        dr("Intime") = dt
        msgbox(dr("Intime"))
        dr("Condition") = 1
        i =i+1
        jssl.text = i

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


加好友 发短信
等级:婴狐 帖子:19 积分:384 威望:0 精华:0 注册:2017/9/27 17:57:00
  发帖心情 Post By:2018/2/6 20:33:00 [只看该作者]

没有绑定日期控件,dr("Intime"))显示的是没有时分秒的
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:test生产过账程序1.rar


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


加好友 发短信
等级:超级版主 帖子:110574 积分:562760 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/6 20:47:00 [只看该作者]

Tables("A080_QT站点接收界面_Table1").DataTable.DataCols("Intime").SetDateTimeFormat(DateTimeFormatEnum.DateLongTime)

 回到顶部