知识大全添加一个下拉框到DataGrid

Posted 2022-07-17 知

篇首语：没有伞的孩子必须学会努力奔跑。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全添加一个下拉框到DataGrid相关的知识，希望对你有一定的参考价值。

添加一个下拉框到DataGrid 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　本实例利用Paint方法添加一个下拉框到DataGrid 上 office:office />

　　新建一个Visual Basic Project

　　添加一个DataGrid control到窗体上

　　加入以下代码

　　Imports System Data SqlClient

　　Public Class Form

　　Inherits System Windows Forms Form

　　#Region Windows 窗体设计器生成的代码

　　Public Sub New()

　　MyBase New()

　　该调用是 Windows 窗体设计器所必需的

　　InitializeComponent()

　　在 InitializeComponent() 调用之后添加任何初始化

　　End Sub

　　窗体重写处置以清理组件列表

　　Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)

　　If disposing Then

　　If Not (ponents Is Nothing) Then

　　ponents Dispose()

　　End If

　　MyBase Dispose(disposing)

　　End Sub

　　 Windows 窗体设计器所必需的

　　Private ponents As System ComponentModel IContainer

　　注意以下过程是 Windows 窗体设计器所必需的

　　可以使用 Windows 窗体设计器修改此过程

　　不要使用代码编辑器修改它

　　Friend WithEvents DataGrid As System Windows Forms DataGrid

　　<System Diagnostics DebuggerStepThrough()> Private Sub InitializeComponent()

　　Me DataGrid = New System Windows Forms DataGrid()

　　CType(Me DataGrid System ComponentModel ISupportInitialize) BeginInit()

　　Me SuspendLayout()

　　 DataGrid

　　Me DataGrid DataMember =

　　Me DataGrid HeaderForeColor = System Drawing SystemColors ControlText

　　Me DataGrid Location = New System Drawing Point( )

　　Me DataGrid Name = DataGrid

　　Me DataGrid Size = New System Drawing Size( )

　　Me DataGrid TabIndex =

　　 Form

　　Me AutoScaleBaseSize = New System Drawing Size( )

　　Me ClientSize = New System Drawing Size( )

　　Me Controls AddRange(New System Windows Forms Control() Me DataGrid )

　　Me Name = Form

　　Me Text = Form

　　CType(Me DataGrid System ComponentModel ISupportInitialize) EndInit()

　　Me ResumeLayout(False)

　　End Sub

　　#End Region

　　Public MyCombo As New ComboBox()

　　Dim con As New SqlConnection( server=lihg;uid=sa;pwd=sa;database=northwind )

　　Dim daEmp As New SqlDataAdapter( Select * From Employees con)

　　Public ds As New DataSet()

　　Private Sub Form _Load(ByVal sender As System Object ByVal e As System EventArgs) Handles MyBase Load

　　AddHandler MyCombo TextChanged AddressOf Ctrls_TextChanged

　　 Fill ComboBox list

　　MyCombo Name = MyCombo

　　MyCombo Visible = False

　　MyCombo Items Clear()

　　MyCombo Items Add( Sales Representative )

　　MyCombo Items Add( Inside Sales Coordinator )

　　MyCombo Items Add( Vice President Sales )

　　MyCombo Items Add( Sales Manager )

　　MyCombo Items Add( Flunky )

　　daEmp Fill(ds Employees )

　　 Set the RowHeight of the DataGrid to the height of the ComboBox

　　DataGrid PreferredRowHeight = MyCombo Height

　　DataGrid DataSource = ds

　　DataGrid DataMember = Employees

　　 Add ComboBox to the Control collection of the DataGrid

　　DataGrid Controls Add(MyCombo)

　　End Sub

　　Private Sub DataGrid _Paint(ByVal sender As Object ByVal e As System Windows Forms PaintEventArgs) Handles DataGrid Paint

　　If DataGrid CurrentCell ColumnNumber = Then

　　MyCombo Width = DataGrid GetCurrentCellBounds Width

　　End If

　　End Sub

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

　　If DataGrid CurrentCell ColumnNumber = Then

　　MyCombo Visible = False

　　If DataGrid Item(DataGrid CurrentCell) & = Then

　　SendKeys Send( * )

　　End If

　　DataGrid Item(DataGrid CurrentCell) = MyCombo Text

　　End If

　　End Sub

　　Private Sub DataGrid _CurrentCellChanged(ByVal sender As Object ByVal e As System EventArgs) Handles DataGrid CurrentCellChanged

　　If DataGrid CurrentCell ColumnNumber = Then

　　MyCombo Visible = False

　　MyCombo Width =

　　MyCombo Left = DataGrid GetCurrentCellBounds Left

　　MyCombo Top = DataGrid GetCurrentCellBounds Top

　　MyCombo Text = DataGrid Item(DataGrid CurrentCell) &

　　MyCombo Visible = True

　　Else

　　MyCombo Visible = False

　　MyCombo Width =

　　End If

　　End Sub

　　Private Sub DataGrid _Scroll(ByVal sender As Object ByVal e As System EventArgs) Handles DataGrid Scroll

　　MyCombo Visible = False

　　MyCombo Width =

　　End Sub

　　Private Sub DataGrid _Click(ByVal sender As Object ByVal e As System EventArgs) Handles DataGrid Click

　　MyCombo Visible = False

　　MyCombo Width =

　　End Sub

　　End Class

　　修连接字符串Dim con As New SqlConnection( server=lihg;uid=sa;pwd=sa;database=northwind ) 使能连接上数据库

cha138/Article/program/net/201311/13633

知识大全 添加一个下拉框到DataGrid

知识大全添加一个下拉框到DataGrid