Create Treelist with column VB.net and DevExpress

First What we  Need is Devexpress, you can Download It Here

and VB.net.. i think you was install it..

okay, we start now.

first drag "TreeList" Control From ToolBox

after That Create Colum in Treelist like picture Below

after this double klik "Button 1"

and copy code below : 

 'RECURTION

    Private Sub InsertNodeChild(ByVal Parent As String, ByVal xtabel As DataTable, ByVal parentNode As TreeListNode)

        Dim lengthChildId = Parent.Length + 2

        Dim xdtrow() As DataRow = xtabel.Select("LEN(id) = " & lengthChildId & " AND substring(id,1," & Parent.Length & ") = " & Parent, "")

        For i = 0 To xdtrow.Length - 1

            TreeList1.AppendNode(New Object() {xdtrow(i).Item("id").ToString, xdtrow(i).Item("Nama").ToString, xdtrow(i).Item("Jumlah")}, parentNode)

            TreeList1.EndUnboundLoad()

            InsertNodeChild(xdtrow(i).Item("id").ToString, xtabel, parentNode.Nodes(i))

        Next

    End Sub

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ' DATA EXAMPLE =====

        Dim tb_0 As New DataTable

        tb_0.Columns.Add("id")

        tb_0.Columns.Add("Nama")

        tb_0.Columns.Add("Jumlah", GetType(Double))

        '=== LEVEL 1

        tb_0.Rows.Add(New Object() {"01", "kepala1", 100})

        tb_0.Rows.Add(New Object() {"02", "kepala2", 100})

        tb_0.Rows.Add(New Object() {"03", "kepala3", 100})

        tb_0.Rows.Add(New Object() {"04", "kepala4", 100})

        '=== LEVEL 2

        tb_0.Rows.Add(New Object() {"0101", "kepala11", 100})

        tb_0.Rows.Add(New Object() {"0102", "kepala12", 100})

        tb_0.Rows.Add(New Object() {"0103", "kepala13", 100})

        tb_0.Rows.Add(New Object() {"0104", "kepala14", 100})

        '=== LEVEL 3

        tb_0.Rows.Add(New Object() {"010101", "kepala111", 100})

        tb_0.Rows.Add(New Object() {"010102", "kepala1112", 100})

        tb_0.Rows.Add(New Object() {"010103", "kepala1113", 100})

        tb_0.Rows.Add(New Object() {"010104", "kepala1114", 100})

        '=== GET DATA FROM ALL

        Dim xdtrow() As DataRow = tb_0.Select("LEN(id) = 2", "")

        Dim ParentNothing As TreeListNode = Nothing

        TreeList1.Nodes.Clear()

        For i = 0 To xdtrow.Length - 1

            TreeList1.AppendNode(New Object() {xdtrow(i).Item("id").ToString, xdtrow(i).Item("Nama").ToString, xdtrow(i).Item("Jumlah")}, ParentNothing)

            TreeList1.EndUnboundLoad()

            InsertNodeChild(xdtrow(i).Item("id").ToString, tb_0, TreeList1.Nodes(i))

        Next

    End Sub

after that.. run the program and clik "Button 1"

it will become like this.. 

Or you can download it here

Thank you..

and sory for bad english

Membuat Fungsi Di vb.net

Membuat Fungsi Cek angka di VB.net

  Function ConvertAngka(ByVal angka As String)

        Dim hasil As Double = 0

        If IsNumeric(angka) = True Then

            hasil = CDbl(angka)

        Else

            hasil = 0

        End If

        Return hasil

 End Function

penggunan fungsi ini digunakan untuk mengecek. apakah variabel yg digunakan dapat di rubah menjadi angka atau tidak... jika berhasil maka fungsi ersebut akan akan menghasilkan angka, jika tidak maka fungsi akan menghasilkan 0

penggunaak fungsi di atas dapat di gunakan seperti contoh berikut :

Dim angka1 As Double = ConvertAngka(TextBox1.Text)

Menampilkan isi tabel pada combobox dengan VB.Net

database yang digunakan yaitu database northwind.. sudah ada otomatis saat menginstall sql server..

tanpa banyak basa basi.. buatlah form seperti gambar dibawah dengan 1 buah combox, 1 buah button dan 1 buah label.


lalu buat coding di berikut :

Imports System.Data.SqlClient
Public Class Form1
Dim x As String
Private cnstr As String = "server=.;user=sa;password=123456;database=northwind"
'Private cnstr As String = "server=.;integrated security=true;database=northwind"

Private Function isian(ByVal sql As String) As DataSet
Dim ds As New DataSet
Dim da As SqlDataAdapter
Using cn As New SqlConnection(cnstr)
Try
cn.Open()
da = New SqlDataAdapter(sql, cn)
da.Fill(ds)
Catch ex As Exception
ds = Nothing
MsgBox(ex.Message)
End Try
End Using
Return ds
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

ComboBox1.DataSource = isian("select * from categories").Tables(0)
ComboBox1.DisplayMember = "CategoryID"
ComboBox1.ValueMember = "CategoryName"
ComboBox1.SelectedValue = "CategoryName"

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Text = (ComboBox1.SelectedValue)
End Sub
End Class

atau silahkan download di sini saja
jika membantu tolong di like atau share.. :)