Hämtar 2 tabeller till ett dataset, skapar relation för att lägga in rot/löv i rätt ordning. Kan någon hjälpa mig? Får ett cast-fel här: ****

Dim mySelectQuery As String = "SELECT vcharBenamning, intHuvudStatusTypID FROM tblInkHuvudStatus"
Dim myCommand As New SqlCommand(mySelectQuery, conn)
Dim mySelectQuery2 As String = "SELECT vcharBenamning, intID, intHuvudStatusTypID FROM tblInkStatusTyp"

Dim myCommand2 As New SqlCommand(mySelectQuery2, conn)
conn.Open()
Dim daHS As SqlDataAdapter = New SqlDataAdapter()
Dim daST As SqlDataAdapter = New SqlDataAdapter()

daHS.SelectCommand = myCommand
daST.SelectCommand = myCommand2
daHS.Fill(ds, "tblHS")
daST.Fill(ds, "tblST")
conn.Close()

ds.Relations.Add("dataRel_HS_ST", ds.Tables("tblHS").Columns("intHuvudStatusTypID"), ds.Tables("tblST").Columns("intHuvudStatusTypID"))

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nodeHS, nodeST As TreeNode
Dim rowHS, rowST As DataRow

For Each rowHS In ds.Tables("tblHS").Rows

nodeHS = New TreeNode()
nodeHS.Text = rowHS("vcharBenamning")
nodeHS = rowHS("intHuvudStatusTypID") ****
TreeView1.Nodes.Add(nodeHS)

For Each rowST In rowHS.GetChildRows("dataRel_HS_ST")

nodeST = New TreeNode()
nodeST.Text = rowST("vcharBenamning")
nodeST = rowST("intID")
nodeHS.Nodes.Add(nodeST)

Next
Next
End Sub

>nodeHS = New TreeNode()
>nodeHS.Text = rowHS("vcharBenamning")
>nodeHS = rowHS("intHuvudStatusTypID") ****

Vad hade du tänkt att den felande raden ska göra då? nodeHS är ju av type TreeNode och jag antar att intHuvudStatusTypID fältet är något slags ID av heltalstyp, så det går ju inte ihop.


MS

Hej! Sant, tagit bort raden och koden funkar. Tack ändå.