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


  共有1905人关注过本帖树形打印复制链接

主题:[求助]导入数据时同列内容不一致

美女呀,离线,留言给我吧!
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
图片点击可在新窗口打开查看



 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/11/24 17:08:00 [只看该作者]

把Execl的C列设置为文本类型

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/11/24 17:13:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下:3.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/24 17:22:00 [只看该作者]

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


 回到顶部
美女呀,离线,留言给我吧!
feng1999
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & "|"

    Next

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

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

End If


 回到顶部
美女呀,离线,留言给我吧!
feng1999
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("材料代号") & "'")

    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
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/11/24 17:35:00 [只看该作者]

还有这段代码

图片点击可在新窗口打开查看此主题相关图片如下:4.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/11/24 17:37:00 [只看该作者]

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

 

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


 回到顶部
美女呀,离线,留言给我吧!
feng1999
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/11/24 17:43:00 [只看该作者]

临时表得到的数据也不正确

 回到顶部
美女呀,离线,留言给我吧!
feng1999
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:100 积分:706 威望:0 精华:0 注册:2017/1/5 15:06:00
  发帖心情 Post By:2017/11/24 17:45:00 [只看该作者]

是不是Excel的问题,遇到这种问题怎么调整Excel列的类型?

 回到顶部
总数 22 1 2 3 下一页