| Forum: VB.NET |
Thema:
Re: Inhalt von Modul1 in Modul2 nutzen |
Von:
paul meier (
26.02.2005 08:24) |
Public Class filltvw
Public Sub tvw_fill(ByVal newinst As Firma080205.Artikel)
ds1.Clear()
ds2.Clear()
ds3.Clear()
'///////////////////////Sanitär///////////////////////
'-------------**********1.Ebene**********-------------
oleadp1.SelectCommand = comdA1
oleadp1.Fill(ds1, "Artikel")
Dim A_Id As Integer
Dim aid, text1 As String
Dim dr As DataRow
'Dim A_Node As New TreeNode()
For Each dr In ds1.Tables("Artikel").Rows
aid = dr(0).ToString
text1 = dr(1).ToString
A_Node = newinst.TreeView1.Nodes.Add(text1)
'-------------**********2.Ebene**********-------------
oleadp2.SelectCommand = comdA2
oleadp2.Fill(ds2, "A_S_1")
Dim A_S_1_Id As Integer
Dim A_S_1_Nr As Integer
Dim A_S_1_Text As String
Dim dr1 As DataRow
Dim A_S_1_Node As TreeNode
For Each dr1 In ds2.Tables("A_S_1").Rows
A_S_1_Id = dr1(0).ToString
A_S_1_Text = dr1(1).ToString
A_S_1_Nr = dr1(2).ToString
If aid = A_S_1_Nr Then
A_S_1_Node = A_Node.Nodes.Add(A_S_1_Text)
'-------------**********3.Ebene**********-------------
ds3.Clear()
oleadp3.SelectCommand = comdA3
newinst.Label9.Text = comdA3.CommandText.ToString
oleadp3.Fill(ds3, "A_S_1_1")
Dim A_S_1_1_Id As Integer
Dim A_S_1_1_Nr As Integer
Dim A_S_1_1_Text As String
Dim dr2 As DataRow
Dim A_S_1_1_Node As TreeNode
For Each dr2 In ds3.Tables("A_S_1_1").Rows
A_S_1_1_Id = dr2(0).ToString
A_S_1_1_Text = dr2(1).ToString
A_S_1_1_Nr = dr2(2).ToString
If A_S_1_1_Nr = A_S_1_Id Then
A_S_1_1_Node = A_S_1_Node.Nodes.Add(A_S_1_1_Text)
End If
'-------------**********4.Ebene**********-------------
oleadp4.SelectCommand = comdA4
oleadp4.Fill(ds4, "A_S_1_1_1")
Dim A_S_1_1_1_Id As Integer
Dim A_S_1_1_1_Nr As Integer
Dim A_S_1_1_1_Text As String
Dim dr3 As DataRow
Dim A_S_1_1_1_Node As TreeNode
For Each dr3 In ds4.Tables("A_S_1_1_1").Rows
A_S_1_1_1_Id = dr3(0).ToString
A_S_1_1_1_Text = dr3(1).ToString
A_S_1_1_1_Nr = dr3(2).ToString
If A_S_1_1_1_Nr = A_S_1_1_Id Then
A_S_1_1_1_Node = A_S_1_1_Node.Nodes.Add(A_S_1_1_1_Text)
End If
Next '4.Schleife
ds4.Clear()
A_S_1_1_1_Node.Nodes.Clear()
Next 'dritte Schleife
ds3.Clear()
A_S_1_1_Node.Nodes.Clear()
End If
Next 'zweite Schleife
ds2.Clear()
A_S_1_Node.Nodes.Clear()
'///////////////////////Heizung///////////////////////
'-------------**********2.Ebene**********-------------
oleadp5.SelectCommand = comdA5
oleadp5.Fill(ds5, "A_H_1")
Dim A_H_1_Id As Integer
Dim A_H_1_Nr As Integer
Dim A_H_1_Text As String
Dim dr4 As DataRow
Dim A_H_1_Node As TreeNode
For Each dr4 In ds5.Tables("A_H_1").Rows
A_H_1_Id = dr4(0).ToString
A_H_1_Text = dr4(1).ToString
A_H_1_Nr = dr4(2).ToString
If aid = A_H_1_Nr Then
A_H_1_Node = A_Node.Nodes.Add(A_H_1_Text)
'-------------**********3.Ebene**********-------------
oleadp6.SelectCommand = comdA6
oleadp6.Fill(ds6, "A_H_1_1")
Dim A_H_1_1_Id As Integer
Dim A_H_1_1_Nr As Integer
Dim A_H_1_1_Text As String
Dim dr5 As DataRow
Dim A_H_1_1_Node As TreeNode
For Each dr5 In ds6.Tables("A_H_1_1").Rows
A_H_1_1_Id = dr5(0).ToString
A_H_1_1_Text = dr5(1).ToString
A_H_1_1_Nr = dr5(2).ToString
If A_H_1_1_Nr = A_H_1_Id Then
A_H_1_1_Node = A_H_1_Node.Nodes.Add(A_H_1_1_Text)
End If
'-------------**********4.Ebene**********-------------
oleadp7.SelectCommand = comdA7
oleadp7.Fill(ds7, "A_H_1_1_1")
Dim A_H_1_1_1_Id As Integer
Dim A_H_1_1_1_Nr As Integer
Dim A_H_1_1_1_Text As String
Dim dr6 As DataRow
Dim A_H_1_1_1_Node As TreeNode
For Each dr6 In ds7.Tables("A_H_1_1_1").Rows
A_H_1_1_1_Id = dr6(0).ToString
A_H_1_1_1_Text = dr6(1).ToString
A_H_1_1_1_Nr = dr6(2).ToString
If A_H_1_1_1_Nr = A_H_1_1_Id Then
A_H_1_1_1_Node = A_H_1_1_Node.Nodes.Add(A_H_1_1_1_Text)
End If
Next '4.Schleife
ds7.Clear()
A_H_1_1_1_Node.Nodes.Clear()
Next 'dritte Schleife
ds6.Clear()
A_H_1_1_Node.Nodes.Clear()
End If
Next 'zweite Schleife
ds5.Clear()
'A_H_1_Node.Nodes.Clear()
'///////////////////////Zubehör///////////////////////
'-------------**********2.Ebene**********-------------
oleadp8.SelectCommand = comdA8
oleadp8.Fill(ds8, "A_Z_1")
Dim A_Z_1_Id As Integer
Dim A_Z_1_Nr As Integer
Dim A_Z_1_Text As String
Dim dr7 As DataRow
Dim A_Z_1_Node As TreeNode
For Each dr7 In ds8.Tables("A_Z_1").Rows
A_Z_1_Id = dr7(0).ToString
A_Z_1_Text = dr7(1).ToString
A_Z_1_Nr = dr7(2).ToString
If aid = A_Z_1_Nr Then
A_Z_1_Node = A_Node.Nodes.Add(A_Z_1_Text)
End If
Next '5.Schleife
ds8.Clear()
'A_Z_1_Node.Nodes.Clear()
Next 'erste Schleife
ds3.Clear()
A_Node.Nodes.Clear()
'Label7.Text = a
'Label8.Text = b
End Sub
End Class
Der Aufruf in Artikel.FormLoad:
Call tvwFill(newinst)
Obwohl A_ode gedimmt ist, bleibt der Debugger bei:
A_Node = newinst.TreeView1.Nodes.Add(text1) stehen, mit dem Hinweis das A_Node = Nothing ist.
Gruß paul!
www.firmsoftware.de
| Betreff |
Von |
Datum |
|
|
|
|
paul
meier
|
26.02.2005 08:38 |
|
|
  |
Re: Inhalt von Modul1 in Modul2 nutzen
| <br>ich hab das jetzt nochmal neu gemacht, komme aber nicht weiter, so:<br>Public Class filltvw<br> Dim aid, text1 As String<br> Dim dr As DataRow<br> Dim A_Node As New TreeNode() <br> Public Sub... |
|
|
|
|
|
paul
meier
|
26.02.2005 11:18 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
