Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

Dim Cols1() As String = {"工厂","KLM款号","厂家款号","钻石规格","分数","图片","类别"}

Dim Cols2() As String = {"工厂","KLM款号","厂家款号","钻石规格","分数","图片","类别"}

cmd.CommandText = "SELECT DISTINCT 工厂,KLM款号,厂家款号,钻石规格,分数,图片,类别 From {款式清单} where 工厂 = \'" & gcm & "\'"

dt = cmd.ExecuteReader()

For Each dr1 As DataRow In dt.DataRows

    Dim dr2 As DataRow = DataTables("下单").AddNew()

    For i As Integer = 0 To Cols1.Length -1

        dr2(Cols2(i)) = dr1(Cols1(i))

    Next

Next