?
Solved

tree view

Posted on 2001-06-21
6
Medium Priority
?
178 Views
Last Modified: 2010-05-02
i have an access database with three tables
vehicle (vehicle no , type , etc.)
Test (Test ID, vehicle no , smoke reading, smoke result ,test date, etc.)
Brake (Test ID , Axle no, Reading, result, etc.)

1 vehicle has many tests
1 test has many brake tests

first of all will come the vehicle details above of the form
then i want to put all other information in a tree view

Test Date (1/1/1999)
---Smoke
-------smoke reading
-------smoke result
---Brake
-------Axle no -- for example this is axle one
-----------reading
-----------result
-------Axle no -- the same will be done for other axles
-----------reading
-----------result

and the above diagram will be repeated for each test date

Test Date (2/2/1999)
---Smoke
-------smoke reading
-------smoke result
---Brake
-------Axle no -- for example this is axle one
-----------reading
-----------result
-------Axle no -- the same will be done for other axles
-----------reading
-----------result

Is this possible, if yes, how can i do it
0
Comment
Question by:Brave_Heart
6 Comments
 
LVL 56

Expert Comment

by:Ryan Chong
ID: 6217253
Hi, is it the element "Smoke" & "Brake" come from same table?

In database, you can use the SQL "Group By" group test's date to show the results.
0
 

Author Comment

by:Brave_Heart
ID: 6217346
but how can i do the tree view ... i never used it at alll  and how can i connect it to database fields
0
 
LVL 56

Expert Comment

by:Ryan Chong
ID: 6217389
Hi, to add items in a listview:

For i = 1 To adodc1.recordset.recordcount
    LVWS.ListItems.Add i, , "" & adodc1.recordset.fields![abc]
    LVWS.ListItems(i).SubItems(1) = "" & adodc1.recordset.fields![xyz]
Next i

Useful Links:

http://abstractvb.com/code.asp?CID=90

http://www.visualasp.com/demo/source/lv4.txt

Can you post the Table design?
0
The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

 
LVL 3

Accepted Solution

by:
cmgarnett earned 800 total points
ID: 6217428
Certainly not complete and tested code but it may set you off in the right direction.

rs1 = vehicle file by vehicle ID
rs1.movefirst
while not rs1.eof
  Set nodX = tvw1.Nodes.Add(, , rs1!vehicleid, rs1!vehicleid)
  nodX.Expanded = True
  rs2 = test file by test date and test id where vehicle id = rs1!vehicle id
  rs2.movefirst
  while not rs2.eof
    Set nodX = tvw1.Nodes.Add(rs1!vehicleid, tvwChild, rs2!testdate, rs2!testdate)
    nodX.Expanded = True
    rs3 = brake file by test id and axle no
    while not rs3.eof
      Set nodX = tvw1.Nodes.Add(rs2!Testdate, tvwChild, rs3!axleid, rs3!axleid)
      nodX.Expanded = true
    wend
  wend
wend
0
 
LVL 49

Expert Comment

by:DanRollins
ID: 7139677
Hi Brave_Heart,
It appears that you have forgotten this question. I will ask Community Support to close it unless you finalize it within 7 days. I will suggest to:

    Accept cmgarnett's comment(s) as an answer.

Brave_Heart, if you think your question was not answered at all or if you need help, you can simply post a new comment here.  Community Support moderators will follow up.

EXPERTS: If you disagree with that recommendation, please post an explanatory comment.
==========
DanRollins -- EE database cleanup volunteer
0
 
LVL 1

Expert Comment

by:Computer101
ID: 7174006
Comment from expert accepted as expert

Computer101
E-E Moderator
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Introduction While answering a recent question about filtering a custom class collection, I realized that this could be accomplished with very little code by using the ScriptControl (SC) library.  This article will introduce you to the SC library a…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

585 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question