如果只是清空数据，保留空行：
Dim t As Table = Tables("表A")t.Select(0,0,t.Rows.Count - 1,t.Cols.Count - 1)t.EditDelete
加好友 
发短信
Post By：2014/4/9 8:03:00 [显示全部帖子]
