帮我看看这程序!!!
Option Explicit
Dim MyDataBase As Database
Dim MyTabledef As Tabledef
Dim MyField As field
Dim fieldnum As Double
Dim datapath As String
Dim tablename As String
Private Sub cmdAddTab_Click()
If cmdAddTab.Caption = "添加表" Then
tablename = InputBox("输入表名称", "表名称")
If tablename$ = "" Then
string1$ = MsgBox("未创建表!", bvOkOnly, "警告")
Else
Set MyTabledef = MyDataBase.createTabledef(tablename)
cmdAddTab.Caption = "添加字段"
End If
If cmdAddTab.Caption = "添加字段" Then
fieldnumber$ = InputBox("输入字段数", "字段数")
If fieldnumber$ = "" Then
string1$ = MsgBox("未输入字段!", bvOkOnly, "警告")
Else
fieldnum = Val(fieldnumber$)
Dim temp As Double
Label1.Caption = "输入字段名"
For i = 1 To temp - 1
Load Text(i)
Text(i).Top = Text(i - 1).Top + 400
Text(i).Visible = True
Text = ""
Next
cmdOk.Enabled = True
End If
End Sub
Private Sub cmdNew_Click()
datapath$ = Input("输入新建的数据库名称", "数据库名称")
If datapath$ = "" Then
string1$ = MsgBox("未建数据库!", bvOkOnly, "警告")
Else
Set MyDataBase = workspades(0).createdatabase(datapath$, dblanggeneral)
cmdAddTab.Enabled = True
End If
End Sub
Private Sub cmdOk_Click()
For i = 0 To field - 1
Set MyField = MyTabledef.createfield(Text(i), dbinteger)
MyTabledef.fields.append MyField
Next
MyDataBase.tabledefs.append MyTabledef
End Sub
Private Sub Form_Load()
cmdNew.Caption = "新建"
cmdAddTab.Caption = "添加表"
cmdOk.Caption = "确定"
cmdAddTab.Enabled = False
cmdOk.Enabled = False
End Sub
为什么运行的时候显示用户定义类型未定义呢?