怎样获取表中字段的名称？

msf

代码怎样写？

zhanguoru

Dim DB As Database

    Dim Tdf As TableDef

    Dim i As Long

   

    Set DB = CurrentDb()

    Set Tdf = DB.TableDefs("資料表名")

    For i = 0 To Tdf.Fields.Count - 1

        MsgBox (Tdf.Fields(i).Name)

    Next i

boyhan

谢！