中国移动东直门营业厅:VB高手来看看

来源:百度文库 编辑:神马品牌网 时间:2024/05/10 11:43:07
Public Sub showemployee()
DataA.RecordSource = "select * from employee"
DataA.Refresh
DBGA.Columns("性别").Button = True
DBGA.Columns("学历").Button = True
DBGA.Columns("部门").Button = True
For i = 0 To 2
Mtab(i).Checked = False
Next i
Mtab(0).Checked = True

cutable = "employee"
cuTabCh = True

End Sub

这段例程代码,编译时说“DBGA变量未定义”
是怎么回事

DBGA是什么啊?
有没有声明啊?