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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]导入数据时同列内容不一致

共有1979人关注过本帖树形打印复制链接主题：[求助]导入数据时同列内容不一致

feng1999

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

[求助]导入数据时同列内容不一致 发帖心情

Post By：2017/11/24 17:02:00 [显示全部帖子]

老师，您好！

数据导入时暂收单号列Excel导入前内容与Foxtable导入后内容不一致，是什么原因导致的？详见图

另外一个问题是Excel中的内容如果为空，为什么导入foxtable中时内容变为0而不是空？

此主题相关图片如下：1.png

此主题相关图片如下：2.png

feng1999

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

Post By：2017/11/24 17:13:00 [显示全部帖子]

设置成文本之后Excel中的内容也变成了这样，是我的Excel有问题吗？

此主题相关图片如下：3.png

feng1999

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

Post By：2017/11/24 17:29:00 [显示全部帖子]

导入的代码为打开一个窗口，以下为窗口的代码：

电池检验记录导入_AfterLoad

Dim dlg As new OpenFileDialog

dlg.Filter = "Excel文件|*.xls;*.xlsx"

If dlg.ShowDialog = DialogResult.OK Then

If Connections.Contains("test") Then

If DataTables.Contains("临时表") Then DataTables.Unload("临时表")

Connections.Delete("test")

End If

Connections.Add("test", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dlg.FileName & ";Extended Properties='Excel 8.0;HDR=yes'")

Dim tns As String = ""

For Each tn As String In Connections("test").GetTableNames

tns &= tn & "|"

e.Form.Controls("ComboBox1").ComboList = tns.TrimEnd("|")

e.Form.Controls("ComboBox1").Selectedindex = 0

End If

feng1999

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：100 积分：706 威望：0 精华：0 注册：2017/1/5 15:06:00

Post By：2017/11/24 17:31:00 [显示全部帖子]

电池检验记录导入_确定_Click

Dim t As Table = e.Form.controls("table1").Table

Dim dt As DataTable = DataTables("电池检验记录录入")

For Each r As Row In t.Rows

Dim drs As List(Of DataRow) = DataTables("电池检验记录录入").Select("供应商='" & r("供应商") & "' and 日期=#" & r("日期") & "# and 暂收单号='" & r("暂收单号") & "' and 采购单号='" & r("采购单号") & "' and 材料代号='" & r("材料代号") & "'")