回覆列表
-
1 # Tiekt鐵鐵
-
2 # 使用者1465424935672
"宣告一個表物件
DIM TD AS TABLEDEF
"使用for each 迴圈表的集合 td.tabledefs為表的集合
for each td in td.TABLEDEFS
"判斷如果表名稱最左邊4個字元不等於"MSYS"，也就表示不是系統表
"Access資料庫系統表開頭都已"MSYS"開頭
IF LEFT$(TD.NAME,4) "MSYS" THEN
"那就將這個表名稱新增到list1中
LIST1.ADDITEM TD.NAME
"繼續執行下一個判斷
end if
NEXT TD
"宣告一個表物件DIM TD AS TABLEDEF "使用for each 迴圈表的集合 td.tabledefs為表的集合for each td in td.TABLEDEFS "判斷如果表名稱最左邊4個字元不等於"MSYS"，也就表示不是系統表"Access資料庫系統表開頭都已"MSYS"開頭IF LEFT$(TD.NAME,4)<> "MSYS" THEN "那就將這個表名稱新增到list1中LIST1.ADDITEM TD.NAME "繼續執行下一個判斷end ifNEXT TD