latihan 383940058

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