添加一个下拉框到DataGrid
点击次数：20 次 发布日期：2008-11-26 11:15:29 作者：源代码网
|
源代码网推荐 源代码网推荐 1、新建一个Visual Basic Project 。 源代码网推荐 2、添加一个DataGrid control到窗体上。 源代码网推荐 3、加入以下代码 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Imports System.Data.SqlClient 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Public Class Form1 源代码网推荐 源代码网推荐 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 (components Is Nothing) Then 源代码网推荐 源代码网推荐 components.Dispose() 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 MyBase.Dispose(disposing) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 "Windows 窗体设计器所必需的 源代码网推荐 源代码网推荐 Private components As System.ComponentModel.IContainer 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 "注意：以下过程是 Windows 窗体设计器所必需的 源代码网推荐 源代码网推荐 "可以使用 Windows 窗体设计器修改此过程。 源代码网推荐 源代码网推荐 "不要使用代码编辑器修改它。 源代码网推荐 源代码网推荐 Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid 源代码网推荐 源代码网推荐 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() 源代码网推荐 源代码网推荐 Me.DataGrid1 = New System.Windows.Forms.DataGrid() 源代码网推荐 源代码网推荐 CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit() 源代码网推荐 源代码网推荐 Me.SuspendLayout() 源代码网推荐 源代码网推荐 " 源代码网推荐 源代码网推荐 "DataGrid1 源代码网推荐 源代码网推荐 " 源代码网推荐 源代码网推荐 Me.DataGrid1.DataMember = "" 源代码网推荐 源代码网推荐 Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText 源代码网推荐 源代码网推荐 Me.DataGrid1.Location = New System.Drawing.Point(72, 56) 源代码网推荐 源代码网推荐 Me.DataGrid1.Name = "DataGrid1" 源代码网推荐 源代码网推荐 Me.DataGrid1.Size = New System.Drawing.Size(416, 184) 源代码网推荐 源代码网推荐 Me.DataGrid1.TabIndex = 0 源代码网推荐 源代码网推荐 " 源代码网推荐 源代码网推荐 "Form1 源代码网推荐 源代码网推荐 " 源代码网推荐 源代码网推荐 Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14) 源代码网推荐 源代码网推荐 Me.ClientSize = New System.Drawing.Size(552, 285) 源代码网推荐 源代码网推荐 Me.Controls.AddRange(New System.Windows.Forms.Control() {Me.DataGrid1}) 源代码网推荐 源代码网推荐 Me.Name = "Form1" 源代码网推荐 源代码网推荐 Me.Text = "Form1" 源代码网推荐 源代码网推荐 CType(Me.DataGrid1, 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 Form1_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. 源代码网推荐 源代码网推荐 DataGrid1.PreferredRowHeight = MyCombo.Height 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DataGrid1.DataSource = ds 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 DataGrid1.DataMember = "Employees" 源代码网推荐 源代码网推荐 "Add ComboBox to the Control collection of the DataGrid. 源代码网推荐 源代码网推荐 DataGrid1.Controls.Add(MyCombo) 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Private Sub DataGrid1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGrid1.Paint 源代码网推荐 源代码网推荐 If DataGrid1.CurrentCell.ColumnNumber = 3 Then 源代码网推荐 源代码网推荐 MyCombo.Width = DataGrid1.GetCurrentCellBounds.Width 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 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 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Private Sub DataGrid1_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.CurrentCellChanged 源代码网推荐 源代码网推荐 If DataGrid1.CurrentCell.ColumnNumber = 3 Then 源代码网推荐 源代码网推荐 MyCombo.Visible = False 源代码网推荐 源代码网推荐 MyCombo.Width = 0 源代码网推荐 源代码网推荐 MyCombo.Left = DataGrid1.GetCurrentCellBounds.Left 源代码网推荐 源代码网推荐 MyCombo.Top = DataGrid1.GetCurrentCellBounds.Top 源代码网推荐 源代码网推荐 MyCombo.Text = DataGrid1.Item(DataGrid1.CurrentCell) & "" 源代码网推荐 源代码网推荐 MyCombo.Visible = True 源代码网推荐 源代码网推荐 Else 源代码网推荐 源代码网推荐 MyCombo.Visible = False 源代码网推荐 源代码网推荐 MyCombo.Width = 0 源代码网推荐 源代码网推荐 End If 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Private Sub DataGrid1_Scroll(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Scroll 源代码网推荐 源代码网推荐 MyCombo.Visible = False 源代码网推荐 源代码网推荐 MyCombo.Width = 0 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 Private Sub DataGrid1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.Click 源代码网推荐 源代码网推荐 MyCombo.Visible = False 源代码网推荐 源代码网推荐 MyCombo.Width = 0 源代码网推荐 源代码网推荐 End Sub 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 End Class 源代码网推荐 源代码网推荐 4、修连接字符串Dim con As New SqlConnection("server=lihg;uid=sa;pwd=sa;database=northwind")，使能连接上数据库 源代码网推荐 5、F5运行 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
