Office中国论坛/Access中国论坛

标题: 为何这段代码在单独文件不出错，但导入另一文件后却出错！ [打印本页]

作者: zhuyiwen 时间: 2002-6-4 07:27
做什么用？

作者: binbow_z 时间: 2002-6-4 07:29
前面的分号是干什么的?

作者: hongjian 时间: 2002-6-4 07:33
标题: 为何这段代码在单独文件不出错，但导入另一文件后却出错！
为何这段代码在单独文件不出错，但导入另一文件后却出错！

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编辑过]

作者: hongjian 时间: 2002-6-4 07:35

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

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)