combox绑定到 datagrid 中指定列

gsjack 2007-04-13 12:06:13

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
GetApplicationInfo()
End Sub

Private Function GetApplicationInfo()
Dim SqlString As String = "Select application_no'申请编号',division'部门' from application where co_code='IDF'"
dts = New DataSet()
conn = New SqlConnection(ConnString)
da = New SqlDataAdapter(SqlString, conn)
da.Fill(dts, "Application")

Dim dtb As DataTable = New DataTable("Application")
dtb = dts.Tables("Application")
DataGrid2.DataSource = dtb

'da.Dispose()

End Function

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim myCell As DataGridCell
myCell = DataGrid2.CurrentCell
Dim myTable As DataTable
myTable = CType(DataGrid2.DataSource, DataTable)
'
Dim myGridStype As DataGridTableStyle = New DataGridTableStyle()
myGridStype.MappingName = myTable.TableName

Dim colStype2 As DataGridColumnStyle = New DataGridTextBoxColumn()
colStype2.MappingName = "部门"
colStype2.HeaderText = "部门"
myGridStype.GridColumnStyles.Add(colStype2)
'

DataGrid2.TableStyles.Clear()
DataGrid2.TableStyles.Add(myGridStype)

'
Dim _division As String = "select division from division where co_code='IDF'"
Dim rd As SqlDataReader
Dim _com As SqlCommand
'
Dim dBoxColumn As DataGridTextBoxColumn = New DataGridTextBoxColumn()
conn = New SqlConnection(ConnString)
_com = New SqlCommand(_division, conn)
conn.Open()
rd = _com.ExecuteReader()

dBoxColumn = DataGrid2.TableStyles(0).GridColumnStyles(0)
'
ComboBox1 = New ComboBox()
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
ComboBox1.Dock = DockStyle.Fill
While rd.Read()
ComboBox1.Items.Add(rd("division".ToString))
End While
rd.Close()
conn.Dispose()

dBoxColumn.TextBox.Controls.Add(ComboBox1)

End Sub
为什么执行Button3_Click进行绑定后，'申请编号'这一列数据就不显示，只剩下一列了呢？？

...全文