用代码创建数据库，表，字段Option ExplicitPrivate db As DatabasePrivate td As TableDefPrivate f As FieldPrivate Sub Command1_Click()Set db = DBEngine.CreateDatabase("d:\01.mdb", dbLangGeneral)Set td = New TableDefSet f = td.CreateField("NAME", dbText, 20)td.Fields.Append fSet f = td.CreateField("ID", dbText, 5)td.Fields.Append fSet f = td.CreateField("DEPARTMENTP", dbText, 60)td.Fields.Append ftd.Name = "class"db.TableDefs.Append tdSet db = NothingEnd Sub在列表框中显示该字段名你可以设一个变量，取得"该字段名",再添加到列表框中（加上循环），列表框的操作你可以看VB的帮助

评论