If Split(0) > 655 Then 'Layer的最小值-1 ,或者可能的 TgtID 最大值
iLayer = sList(0) '取 Layer
Else
iTgtID = sList(0)
ElseIf Split(0) = -666666# Then '段结束
layer = 0 '置段标记
tgtid = 0
ElseIf Split(0) = -999999 Then '文件结束
Flag = 1
End If
这段不对
我是用的 IF .. THEN .. elseif .. else ... end if
IF 块结构,
在第一个 elseif 前面不能再出现 ELSE
你分析一下各种情况,或者跟踪一下各前几行的这个数组的值想一想,应该放哪个位置
------------------------
'变量定义,建议统一放到代码前
Dim db As Database
Dim iTB As TableDef
'Dim tb2 As TableDef
Dim rs As Recordset
'Dim rs2 As Recordset
'打开数据库,放循环外。按理来说,一个程序只需要打开一次,然后每次都只引用该连接就是了
Set db = OpenDatabase(accessFile) '打开数据库
Set rs1 = db.OpenRecordset("MainInfo") '打开数据表
-----------------
'你在本过程中打开了数据连接,那就记得要关掉
db.close
============
未经测试,只是静态看了一下。
有连接,执行SQL 的命令:
db.execute sql
这样直接执行SQL命令,无返回值,不需要 rs 对象
iLayer = sList(0) '取 Layer
Else
iTgtID = sList(0)
ElseIf Split(0) = -666666# Then '段结束
layer = 0 '置段标记
tgtid = 0
ElseIf Split(0) = -999999 Then '文件结束
Flag = 1
End If
这段不对
我是用的 IF .. THEN .. elseif .. else ... end if
IF 块结构,
在第一个 elseif 前面不能再出现 ELSE
你分析一下各种情况,或者跟踪一下各前几行的这个数组的值想一想,应该放哪个位置
------------------------
'变量定义,建议统一放到代码前
Dim db As Database
Dim iTB As TableDef
'Dim tb2 As TableDef
Dim rs As Recordset
'Dim rs2 As Recordset
'打开数据库,放循环外。按理来说,一个程序只需要打开一次,然后每次都只引用该连接就是了
Set db = OpenDatabase(accessFile) '打开数据库
Set rs1 = db.OpenRecordset("MainInfo") '打开数据表
-----------------
'你在本过程中打开了数据连接,那就记得要关掉
db.close
============
未经测试,只是静态看了一下。
有连接,执行SQL 的命令:
db.execute sql
这样直接执行SQL命令,无返回值,不需要 rs 对象
[此贴子已经被作者于2017-11-14 21:12编辑过]
授人于鱼,不如授人于渔
早已停用QQ了