TEXT函数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

可以在狐表写入TEXT函数直接转换值吗?表格是时间格式,我以下报错

此主题相关图片如下：snipaste_2020-08-17_23-32-09.png

导入代码没有问题,是导入后不是时间格式,变成了日期格式?

此主题相关图片如下：snipaste_2020-08-18_09-44-12.png

If sheet(n,dict("到货时间")).Text > "" Then

.rows(i)("到货时间") = sheet(n,dict("到货时间")).Value

End If

必须在电子格用TEXT公式转换后才能导入,我的想法能不能不在表格内转换,直接在导入时转换

此主题相关图片如下：snipaste_2020-08-18_10-50-28.png

改了格式以后导入全部为零了,我在表格内复制为文本得到的是小数
图片点击可在新窗口打开查看

此主题相关图片如下：snipaste_2020-08-18_10-48-47.png

我测试没有问题，execl文件发上来测试一下

以上,表格是用的时间格式

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

测试正常呀，哪一行数据有问题？

我导入的都是00,以下是导入代码

Dim Book As New XLS.Book(dlg.FileName)

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Dim dict As new Dictionary(of String,Integer)

For iii As Integer = 0 To sheet.Cols.Count -1

If sheet(0,iii).Text > "" Then

dict.Add(sheet(0,iii).Text,iii)

End If

Dim bh As Date

For i As Integer = Tables("进仓报量").Rows.Count - 1 To 1 Step -1

Dim aa As String = .Rows(i)("工厂")

Dim bb As String = .Rows(i)("款号")

For n As Integer = Sheet.Rows.Count -1 To 1 Step -1

If sheet(n,dict("工厂")).text > "" AndAlso sheet(n,dict("款号")).text > "" Then

Dim a1 As String = sheet(n,dict("工厂")).text

Dim b1 As String = sheet(n,dict("款号")).text

If a1 Like "*" & aa & "*" AndAlso b1 = bb Then

If Date.TryParse(sheet(n,dict("到货日期")).Value,bh) Then

.Rows(i)("到货日期") = bh

End If

If sheet(n,dict("到货时间")).Text > "" Then

.rows(i)("到货时间") = sheet(n,dict("到货时间")).Value

End If

If sheet(n,dict("装箱单箱数")).Text > ""

.Rows(i)("装箱箱数") = sheet(n,dict("装箱单箱数")).Value

End If

If sheet(n,dict("装箱单件数")).Text > ""

.Rows(i)("装箱数量") = sheet(n,dict("装箱单件数")).Value

End If

If sheet(n,dict("实入库件数")).Text > ""

.Rows(i)("实际入库数量") = sheet(n,dict("实入库件数")).Value

End If

Exit For

End If

此主题相关图片如下：snipaste_2020-08-18_13-58-59.png

主题：TEXT函数