Dim dtb As New DataTableBuilder("System_Permission_User") '生成临时表System_Permission_User dtb.AddDef("Name",Gettype(String)) dtb.AddDef("Permission", Gettype(String)) dtb.Build() For Each r As Row In Tables("订单表").Rows Dim dr As DataRow = DataTables("System_Permission_User").AddNew() dr("Name") = r("产品编号") dr("Permission") = r("下单日期") Next