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

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