Private Sub Command1_Click()//运行时总显示这里“子程序或函数未定义” Dim db As Database Dim rs As Recordset Dim ws As Workspace Set ws = CreateWorkspace("", "admin", "", dbUseJet) Set db = ws.OpenDatabase(App.path + "\", False, False, "foxpro 2.5;") Set rs = db.OpenRecordset("select * from block.dbf where [blockname] like '" + trime(Text1.Text) + "'", dbOpenDynaset) If rs.RecordCount Then MsgBox "此板块已存在" rs.Close db.Close ws.Close Exit Sub End If End Sub Dim db As Database Dim rs As Recordset Dim ws As Workspace 这些都需要引用。
