Foxtable(狐表)用户栏目专家坐堂 → 合并数据时,日期时间部分获取不完整


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

主题:合并数据时,日期时间部分获取不完整

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


加好友 发短信
等级:幼狐 帖子:174 积分:2349 威望:0 精华:0 注册:2015/8/12 15:36:00
合并数据时,日期时间部分获取不完整  发帖心情 Post By:2016/1/2 16:35:00 [只看该作者]

Dim dlg As new OpenFileDialog
dlg.Filter = "excle|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("考勤数据").StopRedraw()
    Dim nms() As String = {"部门","姓名","考勤号码","日期时间","机器号","编号","比对方式","卡号"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("考勤数据").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("考勤数据").ResumeRedraw()
End If

日期时间列只获得年月日,而时间部分却无法获取,请问如何解决

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


加好友 发短信
等级:五尾狐 帖子:1093 积分:6682 威望:0 精华:0 注册:2013/7/1 9:05:00
  发帖心情 Post By:2016/1/3 9:07:00 [只看该作者]

其实是已经获取了的,只是默认不显示时间,只显示日期,你要设置一下列属性:

http://www.foxtable.com/help/topics/0043.htm

http://www.foxtable.com/help/topics/0044.htm

 


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


加好友 发短信
等级:幼狐 帖子:174 积分:2349 威望:0 精华:0 注册:2015/8/12 15:36:00
  发帖心情 Post By:2016/1/3 10:22:00 [只看该作者]

谢谢你的帮助;

我使用的代码如下:
Dim dlg As new OpenFileDialog
dlg.Filter = "excle|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Tables("考勤数据").StopRedraw()
    Dim nms() As String = {"部门","姓名","考勤号码","日期时间","机器号","编号","比对方式","卡号"}
    For n As Integer = 1 To Sheet.Rows.Count -1
        Dim r As Row = Tables("考勤数据").AddNew()
        For m As Integer = 0 To nms.Length - 1
            r(nms(m)) = Sheet(n,m).Value
        Next
    Next
    Tables("考勤数据").ResumeRedraw()
End If

尽管日期时间列我设置成日期类型,并且在类属性中,分别两次设置了日期格式DateTime和DateLongTime,最终均显示成:
2015/11/19 0:00:00
2015/11/20 0:00:00
2015/11/20 0:00:00

请问我这是哪里出问题了

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/3 22:13:00 [只看该作者]

 xls.book 是有这样的问题。要用vba处理一下

 

http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=65686&skin=0

 


 回到顶部