Public Class Form13
Dim yunha As New DataSet
Dim yunha1 As New DataTable
Dim yunha2 As New DataTable
Dim yunha3 As New DataTable
Dim yunhi1 As New BindingSource
Dim yunhi2 As New BindingSource
Dim yunhi3 As New BindingSource
Private Sub Form13_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
yunha1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
yunha1.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))
yunha2.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
yunha2.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
yunha2.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))
yunha3.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))
yunha3.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))
yunha3.Columns.Add(New DataColumn("Kode Rekening Sub-Sub", GetType(String)))
yunha3.Columns.Add(New DataColumn("Nama Rekening Sub-Sub", GetType(String)))
Dim Jsv As New Random
For RI As Integer = 1 To Jsv.Next(1, 5)
Yunha1.Rows.Add(RI, "Nama Rekening " & RI)
For RS As Integer = 1 To Jsv.Next(1, 5)
yunha2.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)
For RSS As Integer = 1 To Jsv.Next(1, 5)
yunha3.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)
Next
Next
Next
yunha.Tables.Add(yunha1)
yunha.Tables.Add(yunha2)
yunha.Tables.Add(yunha3)
yunha1.TableName = "a1"
yunha2.TableName = "a2"
yunha3.TableName = "a3"
yunha.Relations.Add(New DataRelation("ant1", yunha.Tables("a1").Columns("Kode Rekening Induk"), yunha.Tables("a2").Columns("Kode Rekening Induk")))
yunha.Relations.Add(New DataRelation("ant2", yunha.Tables("a2").Columns("Kode Rekening Sub"), yunha.Tables("a3").Columns("Kode Rekening Sub")))
yunhi1.DataSource = yunha
yunhi1.DataMember = "a1"
yunhi2.DataSource = yunhi1
yunhi2.DataMember = "ant1"
yunhi3.DataSource = yunhi2
yunhi3.DataMember = "ant2"
yh058.DataSource = yunhi1
yh2.DataSource = yunhi2
yh3.DataSource = yunhi3
End Sub
End Class
