Dim mda As New MySql.Data.MySqlClient.MySQLDataAdapter("sel ect distinct spdm,pic_name from ipos_sptpk" , conn) '这里可以设置你的查询语句
Dim ds As New System.Data.DataSet()
mda.Fill(ds, "TableTemp") 'MySQLDataAdapter方法把数据放到一个新建的临时表里,这个临时表名可自定义,我这里写TableTemp
For Each r As System.Data.DataRow In ds.Tables(0).Rows
Dim dr As DataRow = DataTables("SPTP").AddNew()
dr("spdm") = r("spdm")
dr("pic_name") = r("pic_name")
Next
conn.close
dim f As New Filler
f.SourceTable = DataTables("订单") '指定数据来源
f.SourceCols = "产品,客户" '指定数据来源列
f.DataTable = DataTables("统计") '指定数据接收表
f.DataCols = "产品,客户" '指定数据接收列
f.Fill() '填充数据
黄色的部分不知道该怎么写，之前的写法是蓝色的部分，好像这种临时表，只能用遍历的方式，但是查到下面这种方式，就是黄色方式怎么修改都不对，蓝老师帮我看下有办法不
Dim dt As new System.Data.DataTable
cmd = new MySql.Data.MySqlClient.MySqlCommand("sel ect distinct spdm,pic_name from ipos_sptpk" , conn)
sdr = cmd.ExecuteReader()
conn.close
加好友 
发短信
Post By：2021/8/31 21:50:00 [显示全部帖子]
