Dim Result As DialogResult
Result = MessageBox.Show("发送仓库", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表B")
f.Distinct = False
f.ExcludeNullValue = True
f.Fill() '填充数据
End If