Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlServerCe
Public Class test

€€€€€€Private Sub test_Load(ByVal sender As System.object ByVal e As System.EventArgs) Handles Mybase.Load
€€€€€€€€€€€€€€ '¶ÁÈ¡¹¤×÷ÀàÐÍ
€€€€€€€€€€€€€€ Sql = "select NAME1WORKTYPE from ZCSMS_BP_VISITT"
€€€€€€€€€€€€€€ Cmd = New SqlCeCommand(Sql)
€€€€€€€€€€€€€€ Cmd.Connection = Conn
€€€€€€€€€€€€€€ DataSet.Reset()
€€€€€€€€€€€€€€ Adapter.SelectCommand = Cmd
€€€€€€€€€€€€€€ Adapter.Fill(DataSet "worktype")
€€€€€€€€€€€€€€ CobWorkType.DataSource = DataSet.Tables(0)
€€€€€€€€€€€€€€ CobWorkType.DisplayMember = "NAME1"
€€€€€€€€€€€€€€ CobWorkType.ValueMember = "WORKTYPE"
€€€€€€ End Sub

€€€€€€Private Sub Button1_Click(ByVal sender As System.object ByVal e As System.EventArgs) Handles Button1.Click
€€€€€€€€€€€€€€ CobWorkType.Visible = True
€€€€€€ End Sub

€€€€€€Private Sub Button2_Click(ByVal sender As System.object ByVal e As System.EventArgs) Handles Button2.Click
€€€€€€€€€€€€€€ Dim drv As DataRowView
€€€€€€€€€€€€€€ drv = CobWorkType.SelectedItem
€€€€€€€€€€€€€€ Dim dr As DataRow
€€€€€€€€€€€€€€ dr = drv.Row
€€€€€€€€€€€€€€ MessageBox.Show(dr.Item(1))
€€€€€€ End Sub
End Class