VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmquery 
   BackColor       =   &H80000003&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "查詢窗口"
   ClientHeight    =   4080
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3705
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4080
   ScaleWidth      =   3705
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton cmdok 
      BackColor       =   &H0080C0FF&
      Caption         =   "ok"
      Height          =   375
      Left            =   2160
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   3480
      Width           =   1215
   End
   Begin MSComctlLib.TreeView TreeView1 
      Height          =   3015
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   5318
      _Version        =   393217
      Style           =   7
      HotTracking     =   -1  'True
      BorderStyle     =   1
      Appearance      =   1
   End
End
Attribute VB_Name = "frmquery"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmdOK_Click()
'卸載 本窗體frmquery

Unload frmquery
End Sub

Private Sub Form_Load()



Dim fld As MapObjects2.Field  '定義一個(gè)字段變量
Dim recnode As Node '定義一個(gè)行接點(diǎn)
Dim larnode As Node '定義一個(gè)層接點(diǎn)
Dim furnode As Node '定義一個(gè)值接點(diǎn)
'定義三個(gè)整形變量 用于確定沒(méi)個(gè)接點(diǎn)的id
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = 1: j = 1: k = 1

Do While Not recs.EOF  '判斷記錄集指正是否到達(dá)最后一行
 Set recnode = TreeView1.Nodes.Add(, tvwFirst, "record " & j, "record" & j) '產(chǎn)生一個(gè)父新接點(diǎn)
 recnode.Expanded = True '使接點(diǎn)可以擴(kuò)張
 
 For Each fld In recs.Fields ' 提取一行中的值，作為一個(gè)接點(diǎn)
  '產(chǎn)生一個(gè)新接點(diǎn)
 Set larnode = TreeView1.Nodes.Add(recnode, tvwChild, fld.Name & i & j, fld.Name & i & j)
 '使接點(diǎn)可以擴(kuò)張
 larnode.Expanded = True
 '產(chǎn)生一個(gè)新接點(diǎn)
 Set furnode = TreeView1.Nodes.Add(larnode, tvwChild, fld.Name & k & i & j, fld.ValueAsString)
 
 i = i + 1: k = k + 1
 Next fld
recs.MoveNext '將指正下移一行
j = j + 1
Loop
End Sub