数据合并时，出现有一列数据没有导入，请老师看看。
此主题相关图片如下：1.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:jc.xls

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

Dim pr As Integer = DataTables("检查").DataRows.Count     \'查询表行数

Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" \'设置筛选器
dlg.MultiSelect = True   \'允许选择多个文件
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
e.Form.Controls("Label1").Text = "正在合并,请稍后..."
Application.DoEvents()

    Dim mg As New Merger
    For Each fl As String In dlg.FileNames
        mg.SourcePath = fl \'指定数据文件
        mg.Format = "excel" \'指定格式
        mg.SourceTableName = "检查$" \'指定要合并的表
        mg.DataTableName = "检查" \'指定接收数据的表
        mg.Merge() \'开始合并
    Next

Dim i As Integer
For i  = DataTables("检查").DataRows.Count-1 To 0 Step -1
    Dim dr As DataRow = DataTables("检查").DataRows(i)
    Dim dr2 As DataRow = DataTables("检查").Find("编号=\'" & dr("编号") & "\' and _Identify <> " & dr("_Identify"))
    If dr2 IsNot Nothing Then
        dr2.Delete
    End If
Next  \'去重复值
\'
DataTables("检查").DeleteFor("[管理号码] is null or [良品] is null")  \'删除空白行

pr = DataTables("检查").DataRows.Count - pr \'查询表行数

MessageBox.Show("成功导入数据"& pr &"条","提示")

e.Form.Controls("Label1").Text = ""

Syscmd.Table.ToggleSortAndFilter()
DataTables("检查").Save()
End If

方法1：excel数据里面，这些数据，都要弄成字符格式；

方法2；用代码的方式导入 http://www.foxtable.com/help/topics/2334.htm

大红袍老师，

方法1：excel数据里面，这些数据，都要弄成字符格式；（导出时得到的）

导出时可以将整数改成字符格式吗？不使用excel模板的情况下。

不行，你用代码的方式导入或者导出吧。

 导出的模板这样写，比如 B列，原本写 [B]

 就改写成 \'[B]

 或者写成 <"\'" & [B]>