Dim cmd As New SQLCommand cmd.CommandText = "Select 产品,客户 From {订单}" Dim f As New Filler f.SourceTable = cmd.ExecuteReader() '指定数据来源 f.SourceCols = "产品,客户" '指定数据来源列 f.DataTable = DataTables("表A") '指定数据接收表 f.DataCols = "第一列,第二列" '指定数据接收列 f.Distinct = False '为了看的更清楚,填充所有记录 f.Fill() '填充数据