专家坐堂-[求助] 导入合并时间显示00:00Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 导入合并时间显示00:00  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=69975)

--  作者：wangyinming
--  发布时间：2015/6/13 22:44:00
--  [求助] 导入合并时间显示00:00

用以下代码合并时，"开始时间","结束时间"显示00:00，但是在excel模板中都是时间格式了，请各位看看如何解决。

Dim pr As Integer = DataTables("检查").DataRows.Count \'查询表行数
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
Dim c As Integer = 0
Dim Book As New XLS.Book(dlg.FileName)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Tables("检查").StopRedraw()
\'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
Dim nms() As String = { "编号","工程","班","作业日","正常时间","加班时间","工号","姓名","机台号码","型号","辅助编码","管理号码","管理号码1","管理号码2","生产数","良品","不良品","段取品","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","开始时间","结束时间","开动时间","连班时间","稼动时间","检查","切边","自动切边","空检","磁检","套弹簧","组装","防锈包装","称油脂","返工","不良调试","毛边确认","气泡确认","裂开确认","作业标准","能力","必要时间","生产效率","故障时间","材料时间","品检时间","异常时间","段取时间","调整时间","初品时间","其它时间" }
\'注意下面的循环变量从1开始,而不是从0开始,因为Excel表的第一行是标题
For n As Integer = 2 To Sheet.Rows.Count -1
Dim bh As String = sheet(n,0).Text
Dim dr As DataRow = DataTables("检查").Find("编号 = \'" & bh & "\'")
If dr Is Nothing Then \'如果不存在同编号的订单
dr = DataTables("检查").AddNew()
End If
For m As Integer = 0 To nms.Length - 1
dr(nms(m)) = Sheet(n,m).Value
Next
Next
Tables("检查").ResumeRedraw()
\'Dim i As Integer
\'For i = DataTables("检查").DataRows.Count-1 To 0 Step -1
\'Dim dr As DataRow = DataTables("检查").DataRows(i)
\'Dim dr2 As DataRow = DataTables("检查").Find("管理号码=\'" & dr("管理号码") & "\' and 良品=\'" & dr("良品") & "\'and 管理号码1=\'" & dr("管理号码1") & "\'and 工号=\'" & dr("工号") & "\' and _Identify <> " & dr("_Identify"))
\'If dr2 IsNot Nothing Then
\'dr2.Delete
\'End If
\'Next \'去重复值
\'
\'DataTables("检查").DeleteFor("[管理号码] is null or [良品] is null") \'删除空白行
\'
pr = DataTables("检查").DataRows.Count - pr \'查询表行数


MessageBox.Show("成功导入数据"& pr &"条","提示")
End If


Syscmd.Table.ToggleSortAndFilter()
DataTables("检查").Save()

--  作者：wangyinming
--  发布时间：2015/6/13 23:26:00
--

此主题相关图片如下：catch.jpg

模板时间格式设为是日期，使用系统导入命令显示正常。
但是使用我的代码，显示00:00
列格式TIME和date、DateLongTime 都试过了，无效，，，，求解··········

--  作者：wangyinming
--  发布时间：2015/6/13 23:27:00
--
大红袍老师在吗？？
此主题相关图片如下：catch7c26.jpg

[此贴子已经被作者于2015/6/13 23:30:09编辑过]

--  作者：wangyinming
--  发布时间：2015/6/13 23:43:00
--

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:201501.xls

下载信息  [文件大小：   下载次数： ]
点击浏览该文件:管理项目1.table

特制作了列子，请大家确认

--  作者：wangyinming
--  发布时间：2015/6/14 7:59:00
--
自己顶一下吧，求解决

--  作者：大红袍
--  发布时间：2015/6/14 9:37:00
--

参考例子

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

--  作者：客人
--  发布时间：2015/6/14 23:16:00
--

求代码，不知道2个代码链接在一起。

--  作者：大红袍
--  发布时间：2015/6/15 9:19:00
--

Dim pr As Integer = DataTables("检查").DataRows.Count     \'查询表行数
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    \'注意以下数组中列名称的顺序,必须和Excel表中的列顺序一致
    Dim nms() As String = { "编号","工程","班","作业日","正常时间","加班时间","工号","姓名","机台号码","型号","辅助编码","管理号码","管理号码1","管理号码2","生产数","良品","不良品","段取品","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","开始时间","结束时间","开动时间","连班时间","稼动时间","检查","切边","自动切边","空检","磁检","套弹簧","组装","防锈包装","称油脂","返工","不良调试","毛边确认","气泡确认","裂开确认","作业标准","能力","必要时间","生产效率","故障时间","材料时间","品检时间","异常时间","段取时间","调整时间","初品时间","其它时间" }
    Tables("检查").ResumeRedraw()
    Tables("检查").StopRedraw()
    Dim App As New MSExcel.Application
    try
        Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(dlg.FileName)
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
        Dim Rg As MSExcel.Range = Ws.UsedRange
        For n As Integer = 3 To rg.Rows.Count
            Dim bh As String = ws.Cells(n,1).Text
            Dim dr As DataRow = DataTables("检查").Find("编号 = \'" & bh & "\'")
            If dr Is Nothing Then \'如果不存在同编号的订单
                dr = DataTables("检查").AddNew()
            End If
            For m As Integer = 0 To nms.Length - 1
                dr(nms(m)) = ws.Cells(n,m+1).Value
            Next

        Next
    catch ex As exception
        msgbox(ex.message)
    finally
        Tables("检查").ResumeRedraw()
        app.quit
    End try

    Tables("检查").ResumeRedraw()
    pr = DataTables("检查").DataRows.Count - pr \'查询表行数
    MessageBox.Show("成功导入数据"& pr &"条","提示")
End If

Syscmd.Table.ToggleSortAndFilter()
DataTables("检查").Save()