为何这段代码在单独文件不出错，但导入另一文件后却出错！

hongjian

为何这段代码在单独文件不出错，但导入另一文件后却出错！

Option Compare Database
Option Explicit
Dim db As Database

Private Sub Form_Load()
Dim tb As TableDef
Dim i As Integer

Set db = CurrentDb

'Set tb = db.TableDefs("单位名称表")

'字段框.RowSource = tb.Fields(i).Name
'For i = 1 To tb.Fields.Count - 1
' 字段框.RowSource = 字段框.RowSource & ";" & tb.Fields(i).Name
'Next i
'set tb = Nothing
End Sub

[此贴子已经被作者于2002-6-3 23:33:24编辑过]

zhuyiwen

做什么用？

binbow_z

前面的分号是干什么的?

hongjian

前面的分号是干什么的? 是我临时关闭的，实际是： ''''''

作用是：　筛选框－查询之用，是前面导入部份！
但我只选以上部份，就出错！

[此贴子已经被作者于2002-6-3 23:35:05编辑过]