Public Sub intTreeData()
Dim objNode As Node
Dim objRecordset As ADODB.Recordset
Dim objSubRecordset As ADODB.Recordset
Dim strSQL As String
Dim strClass As String
TreeView1.Nodes.Clear
'显示根节点
strClass = "避雷器在线监测"
TreeView1.LineStyle = tvwRootLines
'查询线路
strSQL = "select distinct 线路 from 参数表 order by 线路"
Set objRecordset = ExecuteSQL(strSQL)
'查询参数
strSQL = "select distinct 线路,参数 from 参数表 order by 线路,参数"
Set objSubRecordset = ExecuteSQL(strSQL)
objRecordset.MoveFirst 这里显示错误 对象变量或with变量未设置
'将参数信息添加到TreeView控件中
Do Until objRecordset.EOF
objSubRecordset.MoveFirst
Set objNode = TreeView1.Nodes.Add(, , strClass, objRecordset.Fields(0))
Do While Not objSubRecordset.EOF
If objSubRecordset.Fields(0) = objRecordset.Fields(0) Then
Set objNode = TreeView1.Nodes.Add(strClass, tvwChild, , _
objSubRecordset.Fields(1))
End If
objSubRecordset.MoveNext
Loop
strClass = strClass & "1"
objRecordset.MoveNext
Loop
objSubRecordset.Close
objRecordset.Close
Set objRecordset = Nothing
Set objSubRecordset = Nothing
End Sub问题出现在红字那里,求各位大神求解
Dim objNode As Node
Dim objRecordset As ADODB.Recordset
Dim objSubRecordset As ADODB.Recordset
Dim strSQL As String
Dim strClass As String
TreeView1.Nodes.Clear
'显示根节点
strClass = "避雷器在线监测"
TreeView1.LineStyle = tvwRootLines
'查询线路
strSQL = "select distinct 线路 from 参数表 order by 线路"
Set objRecordset = ExecuteSQL(strSQL)
'查询参数
strSQL = "select distinct 线路,参数 from 参数表 order by 线路,参数"
Set objSubRecordset = ExecuteSQL(strSQL)
objRecordset.MoveFirst 这里显示错误 对象变量或with变量未设置
'将参数信息添加到TreeView控件中
Do Until objRecordset.EOF
objSubRecordset.MoveFirst
Set objNode = TreeView1.Nodes.Add(, , strClass, objRecordset.Fields(0))
Do While Not objSubRecordset.EOF
If objSubRecordset.Fields(0) = objRecordset.Fields(0) Then
Set objNode = TreeView1.Nodes.Add(strClass, tvwChild, , _
objSubRecordset.Fields(1))
End If
objSubRecordset.MoveNext
Loop
strClass = strClass & "1"
objRecordset.MoveNext
Loop
objSubRecordset.Close
objRecordset.Close
Set objRecordset = Nothing
Set objSubRecordset = Nothing
End Sub问题出现在红字那里,求各位大神求解
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货