UC知道紧急求助，高分答谢！
来源：百度知道 编辑：UC知道 时间：2024/05/03 02:11:04
创建表格
Dim tabd As TableDef
Dim tabf As Field
Dim m As Integer
For m = 0 To main.List1.ListCount - 1
If main.List1.List(m) = "表" & Space(2) & Text1.Text Then
MsgBox "表名重复，请重新输入", vbOKOnly, "表名重复"
Text1.SetFocus
Exit Sub
End If
Next m
If Text1.Text = "" Then
MsgBox "请输入表的名称", vbOKOnly, "输入名称"
Exit Sub
Else
Dim db As Database
Set db = OpenDatabase(App.Path & "\mydb.mdb")
Set tabd = db.CreateTableDef("表" & Space(2) & Text1.Text)
Set tabf = tabd.CreateField("姓名", dbText, 50)
Set tabf = tabd.CreateField("项目", dbText, 50)
Set tabf = tabd.CreateF
Dim tabd As TableDef
Dim tabf As Field
Dim m As Integer
For m = 0 To main.List1.ListCount - 1
If main.List1.List(m) = "表" & Space(2) & Text1.Text Then
MsgBox "表名重复，请重新输入", vbOKOnly, "表名重复"
Text1.SetFocus
Exit Sub
End If
Next m
If Text1.Text = "" Then
MsgBox "请输入表的名称", vbOKOnly, "输入名称"
Exit Sub
Else
Dim db As Database
Set db = OpenDatabase(App.Path & "\mydb.mdb")
Set tabd = db.CreateTableDef("表" & Space(2) & Text1.Text)
Set tabf = tabd.CreateField("姓名", dbText, 50)
Set tabf = tabd.CreateField("项目", dbText, 50)
Set tabf = tabd.CreateF
这样试试看呢?
Dim tabd As TableDef
Dim tabf As Field
Dim m As Integer
For m = 0 To main.List1.ListCount - 1
If main.List1.List(m) = "表" & Space(2) & Text1.Text Then
MsgBox "表名重复，请重新输入", vbOKOnly, "表名重复"
Text1.SetFocus
Exit Sub
End If
Next m
If Text1.Text = "" Then
MsgBox "请输入表的名称", vbOKOnly, "输入名称"
Exit Sub
Else
Dim db As Database
Set db = OpenDatabase(App.Path & "\mydb.mdb")
Set tabd = db.CreateTableDef("表" & Space(2) & Text1.Text)
Set tabf = tabd.CreateField("姓名", dbText, 50)
Set tabf = tabd.CreateField("项目", dbText, 50)
Set tabf = tabd.CreateField("金额", dbText, 50)
Set tabf = tabd.CreateField("收入/支出", dbText, 50)
Set tabf = tabd.CreateField("标记", dbText, 50)
Set tabf = tabd.CreateField("日期", dbText, 50)
Set tabf = tabd.C