添加一个下拉框到DataGrid

http://blog.csdn.net/xwqjamky/archive/2005/10/17/508011.aspx

其中:

Private Sub Ctrls_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs)

        If DataGrid1.CurrentCell.ColumnNumber = 3 Then

            MyCombo.Visible = False

            If DataGrid1.Item(DataGrid1.CurrentCell) & "" = "" Then

                SendKeys.Send("*")

            End If

            DataGrid1.Item(DataGrid1.CurrentCell) = MyCombo.Text

        End If

    End Sub

要消化

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页