应该没有更好的方法的。
试试这样
Dim f As New Fillerf.SourceTable = DataTables("表A") '指定数据来源f.Filter = Tables("表A").Filterf.DataTable = DataTables("表A") '指定数据接收表f.Fill() '填充数据
加好友 
发短信
Post By：2014/5/4 19:36:00 [显示全部帖子]
