Dim db As Database
Dim tblobj As TableDef
Dim X As String
Set wsd = waw.OpenDatabase(Trim(Text1.Text))Combo1.Clear
For Each tblobj In wsd.TableDefs
If tblobj.Attributes = 0 Then
Combo1.AddItem tblobj.Name
End If
Next
Dim tblobj As TableDef
Dim X As String
Set wsd = waw.OpenDatabase(Trim(Text1.Text))Combo1.Clear
For Each tblobj In wsd.TableDefs
If tblobj.Attributes = 0 Then
Combo1.AddItem tblobj.Name
End If
Next
解决方案 »
- 急!!高手指教:VB6 如何缩小显示原本尺寸很大的jpeg图片
- 如何用VB代码实现:Internet上的二个PC,可能看到对方的屏幕?(如QQ“远程协助”)
- 想要这个程序呀……
- 请问用ShellExecute调用的应用程序,要调用什么函数关闭?(在线等!)
- 如何编程下载这样的文件?
- 如何在工具条控件中添加空挡?
- 在ActiveReport2.0中如何对某一字段的数据进行Sum计算?
- 那有ado下载! 请给出具体路径!!!
- 我要考程序员,谁有历年的试题?给点建议?
- 急急急!!!如何调用在excel中已经建好的模板文件来打印数据?
- 如何通过代码在来改变WORD中的某段内容的字体等设置?
- vb的MDI窗体中,如何将所有子窗体Cascade、Vertically、Horizontally
Dim tblobj As TableDef
For Each tblobj In Data1.TableDefs
If tblobj.Attributes = 0 Then
Combo1.AddItem tblobj.Name
End If
Next