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.Fill() '填充数据
End If
老师,上面的代码是我按按钮时表A的数据会复制到表B,但是会连空行都一起复制,能不能帮我增加个代码,就是如果是空行,则不会复制,只会复制有数据的行,谢谢!