2007-08-28 20:16:40| 分类: Windows Mobile | 标签: |举报 |字号大中小 订阅
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 NAME1,WORKTYPE 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
评论