主题：[求助]长日期格式，导入后，后面的时间都变成0了

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel2003|*.xls|Excel2007|*.xlsx" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim Book As New XLS.Book(dlg.FileName)
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
   
    Dim x As Integer = 1
    Do
        Tables("派件明细_本地").Position = Tables("派件明细_本地").AddNew.Index
        Tables("派件明细_本地").Current("运单编号") = Sheet(x,0).value
        Tables("派件明细_本地").Current("签收时间") = Sheet(x,1).value
        Tables("派件明细_本地").Current("派件员") = Sheet(x,2).value
        Tables("派件明细_本地").Current("派件员编号") = Sheet(x,3).value
        x = x + 1
    Loop While Sheet(x,0).value <> ""
   
    Tables("派件明细_本地").Save
End If

以上代码导入后，EXCEL里面是长日期，TABLE的类型是DATELONGTIME,但是执行导入后，

此主题相关图片如下：uz6t~4dr2qbm1v6)f4bw(e.jpg

日期变成 00：00：00这样的时间了，求教如何处理。

看了，还是不明白

 Tables("派件明细_本地").Current("签收时间") = Sheet(x,1).value

这句需要如何改呢？