?
Solved

tree view

Posted on 2001-06-21
6
Medium Priority
?
174 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 55

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 55

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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
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

Receive 1:1 tech help

Solve your biggest tech problems alongside global tech experts with 1:1 help.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

When trying to find the cause of a problem in VBA or VB6 it's often valuable to know what procedures were executed prior to the error. You can use the Call Stack for that but it is often inadequate because it may show procedures you aren't intereste…
Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
As developers, we are not limited to the functions provided by the VBA language. In addition, we can call the functions that are part of the Windows operating system. These functions are part of the Windows API (Application Programming Interface). U…
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…
Suggested Courses

578 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