| Forum: VB.NET |
Thema:
Re: Problem mit TreeView in VB.Net |
Von:
paul meier (
29.07.2005 07:49) |
hi Ansgar,
Ich hab jetzt nur noch de Klassen filltvw u.Artikel_Treenode. Da ist aber immer noch ein Fehler, der Code:
Public Class Artikel_Treenode : Inherits TreeNode
Private A_AID As Int32 'Ersatz für Tag
Private A_Bez As String
Private art_ek As Double
Private art_vk As Double
Public Sub New(ByVal A_AID1 As Int32, ByVal A_Bez1 As String, ByVal art_ek1 As Double, ByVal art_vk1 As Double)
MyBase.New()
A_AID = A_AID1
A_Bez = A_Bez1
art_ek = art_ek1
art_evk = art_vk1
End Sub
Public Property ID() As Int32
Get
Return A_AID
End Get
Set(ByVal value As Int32)
A_AID = value
End Set
End Property
Public Property nodetext() As String
Get
Return A_Bez
End Get
Set(ByVal value1 As String)
A_Bez = value1
End Set
End Property
Public Property artek() As Double
Get
Return art_ek
End Get
Set(ByVal value2 As Double)
art_ek = value2
End Set
End Property
Public Property artvk() As Double
Get
Return art_vk
End Get
Set(ByVal value3 As Double)
art_vk = value3
End Set
End Property
End Class
Public Class filltvw
Public comdA1 As New OleDb.OleDbCommand("Select * From Artikel1", cn)
Public adpA1 As New OleDb.OleDbDataAdapter
Public ds_A1 As New Data.DataSet
Public Sub Filltvw(ByVal InstForm1)
Form1.InstForm1.tvw.Nodes.Clear()
Form1.InstForm1.tvw.Update()
If cn.State = ConnectionState.Open Then
cn.Close()
End If
'-------------**********1.Ebene**********-------------
ds_A1.Clear()
adpA1.SelectCommand = comdA1
Form1.InstForm1.Label1.Text = comdA1.CommandText
cn.Open()
adpA1.Fill(ds_A1, "Artikel1")
Dim TN As Artikel_Treenode
Z 19: TN = New Artikel_Treenode ---> Fehler:"Argument not specified for Parameter:artvk,artek, nodetext,ID
For Each dr As DataRow In ds_A1.Tables("Artikel1").Rows
aid = dr(0)
pid = dr(1)
bezeichnung = dr(4).ToString
A_EK = dr(7)
A_VK = dr(8)
If pid = 0 Then
art_node.ID = aid.ToString
art_node.nodetext = bezeichnung
art_node.artek = A_EK
art_node.artvk = A_VK
art_node.Nodes.Add(art_node)
End If
Next
End Sub
End Class
Gruß paul!
www.firmsoftware.de
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
