主题：[求助]数据读入问题

Dim cmd  As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT * Fro m {订单拉板}"
dt = cmd.ExecuteReader()
For Each dr As  DataRow  In dt.DataRows
    If  DataTables("拉板1").Find("订单编号= '" & dr("订单编号") & "'") Is  Nothing  Then
        Dim nr  As  DataRow =  DataTables("拉板1").AddNew()
        For  Each dc  As  DataCol  In dt.DataCols
            nr(dc.name) = dr(dc.name)
        Next
    End  If

Next