Dim Result As DialogResult
Result = MessageBox.Show("发送表B", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.SourceCols = "日期,总额,数量" '指定数据来源列
f.DataTable = DataTables("表B")
f.DataCols = "日期,总额,数量" '指定数据接收列
f.Distinct = False
f.Fill() '填充数据
End If