主题：后台填充

Dim Vals As List(of String())
Vals = DataTables("来源表").GetValues("产品|客户")
Dim cmd As new sqlcommand
cmd.CommandText = "select * from {接收表} where 1=2"
Dim dt As DataTable = cmd.ExecuteReader(True)
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = dt.AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

dt.save