主题：筛选数据并建立一个新表

Dim dt As DataTable

Dim cmd As New SQLCommand

cmd.CommandText = "Sｅlect  {表A}.* From {表A},{表B} Where {表A}.第二列={表B}.第三列 and {表A}.第四列<>{表B}.第五列"

dt = cmd.ExecuteReader()

Dim f As New Filler

f.SourceTable = dt

f.DataTable = DataTables("表C") '指定数据接收表

f.Fill() '填充数据