主题：关于导入代码问题？

导入代码：

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    Dim mg As New Merger
    mg.SourcePath = dlg.FileName
    mg.Format = "excel" '指定格式
    mg.SourceTableName = "入库明细$" '指定要合并的表
    mg.DataTableName = "入库明细" '指定接收数据的表
    mg.Merge() '开始合并
End If

求帮助看看代码有问题吗？用自己会的几种方法都测试了好几次，还解决不了总是提示如下：

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2016.6.26.1
错误所在事件：表，入库明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
索引和长度必须引用该字符串内的位置。
参数名: length

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2016.6.26.1
错误所在事件：表，入库明细，DataColChanged
详细错误信息：
调用的目标发生了异常。
未将对象引用设置到对象的实例。

我也试了把文件里可能影响长度的文字给删除了，但是导入还是不成功。还有就是用Foxtable一出现问题，易死机这是为什么？注：win8系统刚转换的XP系统、高配。

你的 DataColChanged 事件有代码影响了。

 贴出你事件代码。

这是这个表的所有DataColChanged 事件有代码，设计到到导入，所以导入的数据就出现了问题？

If e.DataCol.Name = "产品编号" Then
    If e.NewValue Is Nothing Then
        e.DataRow("产品名称") = Nothing
        e.DataRow("规格型号") = Nothing
        e.DataRow("分类") = Nothing
        e.DataRow("单位") = Nothing
        e.DataRow("产地") = Nothing
        e.DataRow("注册证号") = Nothing
        e.DataRow("单价元") = Nothing
        e.DataRow("入库批号") = Nothing
        e.DataRow("有效期") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("入库明细").Find("[产品编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("产品名称")= dr("产品名称")
            e.DataRow("规格型号") = dr("规格型号")
            e.DataRow("单位") = dr("单位")
            e.DataRow("分类") = dr("分类")
            e.DataRow("产地") = dr("产地")
            e.DataRow("注册证号") = dr("注册证号")
            e.DataRow("单价元") = dr("单价元")
e.DataRow("入库批号") = Nothing
        e.DataRow("有效期") = Nothing

        End If
    End If
End If

If e.DataCol.Name = "单价元" OrElse e.DataCol.Name = "数量" Then
    e.DataRow("金额元") = e.DataRow("单价元") * e.DataRow("数量")
End If

还有以下代码是什么意思

       Dim cpbh As WinForm.ComboBox = e.Form.Controls("产品编号")
 cpbh.combolist=DataTables("入库明细").GetComboListString("产品编号")

                                  谢谢

        问题一：导入？

         问题二：Dim cpbh As WinForm.ComboBox = e.Form.Controls("产品编号")
 cpbh.combolist=DataTables("入库明细").GetComboListString("产品编号")     ？？？？

         问题三：复制    Syscmd.Edit.Copy()       粘贴   Syscmd.Edit.Paste()     如图  输入代码执行不了？为什么？

If e.DataCol.Name = "产品编号" Then
    If e.NewValue = Nothing Then
        e.DataRow("产品名称") = Nothing
        e.DataRow("规格型号") = Nothing
        e.DataRow("分类") = Nothing
        e.DataRow("单位") = Nothing
        e.DataRow("产地") = Nothing
        e.DataRow("注册证号") = Nothing
        e.DataRow("单价元") = Nothing
        e.DataRow("入库批号") = Nothing
        e.DataRow("有效期") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("入库明细").Find("[产品编号] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("产品名称")= dr("产品名称")
            e.DataRow("规格型号") = dr("规格型号")
            e.DataRow("单位") = dr("单位")
            e.DataRow("分类") = dr("分类")
            e.DataRow("产地") = dr("产地")
            e.DataRow("注册证号") = dr("注册证号")
            e.DataRow("单价元") = dr("单价元")
            e.DataRow("入库批号") = Nothing
            e.DataRow("有效期") = Nothing
           
        End If
    End If
End If

If e.DataCol.Name = "单价元" OrElse e.DataCol.Name = "数量" Then
    e.DataRow("金额元") = e.DataRow("单价元") * e.DataRow("数量")
End If

复制

Tables("表a").Focus
Sendkeys.Send("^C")

粘贴

Tables("表a").Focus
Sendkeys.Send("^V")