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

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]导入数据时同列内容不一致  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=110028)

--  作者：feng1999
--  发布时间：2017/11/24 17:02:00
--  [求助]导入数据时同列内容不一致
老师，您好！
数据导入时暂收单号列Excel导入前内容与Foxtable导入后内容不一致，是什么原因导致的？详见图
另外一个问题是Excel中的内容如果为空，为什么导入foxtable中时内容变为0而不是空？

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

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

--  作者：有点蓝
--  发布时间：2017/11/24 17:08:00
--
把Execl的C列设置为文本类型

--  作者：feng1999
--  发布时间：2017/11/24 17:13:00
--
设置成文本之后Excel中的内容也变成了这样，是我的Excel有问题吗？

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

--  作者：有点甜
--  发布时间：2017/11/24 17:22:00
--

你导入代码怎么写的？贴出你导入的代码。

--  作者：feng1999
--  发布时间：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 & "|"

    Next

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

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

End If

--  作者：feng1999
--  发布时间：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("材料代号") & "\'")

    If drs.Count<>10 Then

        Dim dr As DataRow = dt.AddNew()

        For Each dc As Col In t.Cols

            If dt.DataCols.Contains(dc.name) Then

                dr(dc.Name) = r(dc.name)

            End If

        Next

    End If

Next
Forms("电池检验记录导入").Close

--  作者：feng1999
--  发布时间：2017/11/24 17:35:00
--
还有这段代码

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

--  作者：有点甜
--  发布时间：2017/11/24 17:37:00
--

1、临时表得到的数据是否正确？

2、确定之后得到的数据才有问题？

--  作者：feng1999
--  发布时间：2017/11/24 17:43:00
--
临时表得到的数据也不正确

--  作者：feng1999
--  发布时间：2017/11/24 17:45:00
--
是不是Excel的问题，遇到这种问题怎么调整Excel列的类型？