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

Profil Lee Seung Gi

PROFILE

Name: Lee Seung Ki (Lee Seung Gi)

Profession: Singer, MC, and Actor

Birthdate: 1987-Jan-13

Birthplace: Korea

Height: 182cm

Weight: 70kg

Star sign: Capricorn

Education: Sang Gye High School, Dong Guk University

Skill: Fencing

Hobbies: Listening to music and soccer

Drama Series

Shining Inheritance (SBS, 2009)

Famous Princesses (KBS2, 2006)

Nonstop 5 (MBC, 2005)



Variety shows

KBS Happy Sunday: 1 Night 2 Days (2007 - present)

SBS Good Sunday: X-man (2004 - 2006)

Album

The Dream of a Moth (Released on 1 June 2004)
Title Song: Because You're My Girl

Crazy For U (Released on 3 February 2006)
Title Song: Words That Are Hard To Say

Remake Album - When a Man Loves a Woman Vol.1(Released on 14 September 2006)
Title Song: Please

Love - The 1st Concert [Digital Live Album] (Released on 9 April 2007)

Story of Separation (Released on 16 August 2007)
Title Song: White Lie

Remake album - When a Man loves a Woman Vol.2 (Released on 24 March 2008)
Title Song : I Will Give You All