主题：外部数据表有选择的导入内部数据表的问题

参考

http://www.foxtable.com/webhelp/scr/2137.htm

你需要的，就是2楼的东西。

或者看看 http://www.foxtable.com/webhelp/scr/1533.htm

数据源名称，参考

代码没问题，请你加入msgbox，看那些代码是否执行到了。

如果自己不会调试，请上传一个实例测试。

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim sCols() As String = {"委托编号", "试验编号", "工程名称","委托单位","检测项目","检测部位","检测数量","检测费用"}
Dim dCols() As String = {"委托编号", "试验编号", "工程名称","委托单位","检测项目","检测部位","检测数量","检测费用"}
cmd.ConnectionName = "结构"
cmd.CommandText = "SELECT * From {委托台账}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.DataRows
    If DataTables("结构室费用").Find("委托编号 = '" & dr("委托编号") & "'") Is Nothing Then
        Dim nr As DataRow = DataTables("结构室费用").AddNew()
        For i As Integer =0 To sCols.Length -1
            nr(dCols(i)) = dr(sCols(i))
        Next
    End If
Next