主题：有关数据导入（Merge()）时，数据问题

导入后 捆包号 列为double类型了,   所以不是"-" 的问题吧.

 

如果 捆包号 列就是字符型, 那么就得去改造Excel原文件了,要以文本的形式显示数字```

因为你的excel中 捆包号 列里包含了数字和字符, 而 钢号列 中没有任何一行有数字的~

在excel中这样做一遍: 选中捆包号列中的数字 ,  菜单: 数据 > 分列 > 下一步 > 下一步  选: 文本 

保存后再合并就没有问题了.

其实这样比较有规则的excel表追加到foxtable里,可以自己写一段代码,省得还要去处理excel文件本身了

'曲线 '救国' 吧::::::::::

Dim sjy As String
Dim dlg As New OpenFileDialog
dlg.Filter= "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.Ok Then
    sjy = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dlg.FileName & ";Extended Properties=""EXCEL 8.0;HDR=YES;IMEX=1"""
    AddConnection("smc",sjy)
End If
Dim q As new QueryBuilder
q.C
q.TableName = "test"
q.SelectString = "Select * From {sheet1$} "
q.Build
'Maintable = Tables("test")
Dim f As New Filler
f.SourceTable = Datatables("test") '指定数据来源,这里是临时表
f.Datatable = Datatables("入库") '指定数据接收表, 这个是你要追加数据的表
Datatables("入库").datarows.clear()    '如果要保留原数据,这行代码就不需要了
f.Fill() If Datatables.Contains("test") 
    Datatables.Delete("test")
End If
Connections.delete("smc")