قائمة القارات

Post on 08-Apr-2017

111 views 1 download

Transcript of قائمة القارات

1

Dim dt As New DataTabledt = Getdata("C:\atlas1\databases\atlas.xls", "select distinct القارة from [data$]")

2

Me.ComboBox1.DataSource = dtMe.ComboBox1.DisplayMember = dt.Columns(0).ToStringMe.ComboBox1.ValueMember = dt.Columns(0).ToStringMe.ComboBox1.SelectedIndex = 1

01234