DataTables("表2").DeleteFor("[编号] = '"& Tables("表1").Current("编号") & "'")
dim f As New Filler
f.SourceTable = DataTables("表2")
f.SourceCols = "列名称1,列名称2"
f.DataTable = DataTables("当前表")
f.DataCols = "列名称1,列名称2"
f.ExcludeNullValue = True
f.Fill()
加好友 
发短信
Post By：2008/11/14 14:08:00 [显示全部帖子]
