本文目录
VB Datagrid控件的使用方法
Private Sub DataGrid1_Click()frmXianshi.Text1 = DataGrid1.Columns(0)frmXianshi.Text2 = DataGrid1.Columns(1)frmXianshi.Text9 = DataGrid1.Columns(9)frmXianshi.ShowEnd Sub正确使用鼠标左键点击DataGrid1控件最左侧有指针的灰白处所对应的记录即可.
求VB.net datagrid 控件的使用方法（入门级）
Dim tab1 As String Dim DS As New DataSet Dim SqlStr As String Dim DTS_A As New DataGridTableStyle Dim Col_A1, Col_A2, Col_A3 As New DataGridTextBoxColumn Dim Col_bo As New DataGridBoolColumn ’DS.Tables("tab1").Columns.Add("check", System.Type.GetType("System.Boolean")) ’DS.Tables("tab1").Columns("check").DefaultValue = False Dim Col_A() As DataGridColumnStyle = {Col_bo, Col_A1, Col_A2, Col_A3}’主窗口 Private Sub fICitem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ProgressBar1.Hide() grdStyles("tab1") SQLConn(conn) Dim i As Integer ’Dim arr As New ArrayList SqlStr = "SELECT ID, diqu, dname FROM a_diqu Order by ID" If Not SQLFill(conn, DA, DS, SqlStr, "diqu") Then MsgBox("服务器连接失败") Else Dim dr As DataRow For Each dr In DS.Tables("diqu").Rows ’arr.Add(dr("diqu") & "." & dr("dname")) cmbDiqu.Items.Add(dr("diqu") & "." & dr("dname")) Next End If ’cmbDiqu.DataSource = arr cmbDiqu.SelectedIndex = -1 cmbDiqu.Text = "" End Sub’DataGrid格式 Private Sub grdStyles(ByVal tab As String) Dim ii1 As Integer Dim DTS_A1() As String = {"check", "fshortnumber", "fnumber", "fplanprice"} Dim DTS_A2() As String = {"检查框", "货号", "上市月份", "单价"} Dim DTS_A3() As Integer = {50, 120, 120, 120} ’长度 Dim DTS_A4() As Integer = {2, 0, 2, 1} ’对齐方式 DTS_A.MappingName = tab DTS_A.GridColumnStyles.Clear() DTS_A.AllowSorting = True DTS_A.ReadOnly = True DTS_A.BackColor = Color.DarkGray DTS_A.AlternatingBackColor = Color.LightGray For ii1 = 0 To DTS_A1.Length - 1 Col_A(ii1).MappingName = DTS_A1(ii1) Col_A(ii1).HeaderText = DTS_A2(ii1) Col_A(ii1).Width = DTS_A3(ii1) Col_A(ii1).NullText = "" Col_A(ii1).Alignment = DTS_A4(ii1) Next DTS_A.GridColumnStyles.AddRange(Col_A) grdItem.TableStyles.Add(DTS_A) grdItem.ReadOnly = True End Sub Private Sub fICitem_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed SQLClose(conn) End Sub’显示表单 Private Sub Show1() grdStyles("tab1") txtNum.Text = Trim(txtNum.Text) grdItem.DataSource = Nothing SQLStr = "select * from t_icitem_new" SQLStr &= " where fshortnumber like ’" & txtNum.Text & "%’" SQLStr &= " order by fshortnumber" SQLFill(conn, DA, DS, SQLStr, tab1) grdItem.CaptionText = "货号资料" grdItem.DataSource = DS.Tables(tab1) ShowRow() End Sub’数据同步显示 Private Sub ShowRow() Dim dr As DataRow If DS.Tables(tab1).Rows.Count 》 0 Then If grdItem.CurrentRowIndex 《 DS.Tables(tab1).Rows.Count Then grdItem.CaptionText = grdItem.CurrentRowIndex + 1 & "/" & DS.Tables(tab1).Rows.Count dr = DS.Tables(tab1).Rows(grdItem.CurrentRowIndex) txtNum.Text = dr.Item("fshortnumber") txtPrice.Text = dr.Item("fplanprice") cmbMonth.Text = dr.Item("fnumber") Else txtNum.Text = "" txtPrice.Text = "" cmbMonth.Text = "" End If Else txtNum.Text = "" txtPrice.Text = "" cmbMonth.Text = "" End If End Sub Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged ShowRow() End Sub’鼠标选定行 Private Sub grdItem_CurrentCellChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles grdItem.CurrentCellChanged ShowRow() End Sub Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles btnSelect.Click, btnUpdate.Click, btnInsert.Click, btnDelete.Click Select Case sender.name Case "btnSelect" ’查询 Show1() Case "btnUpdate" ’修改 SUpdate() Case "btnInsert" ’新增 SInsert() Case "btnDelete" ’删除 SDelete() End Select End Sub’修改 Private Sub SUpdate() txtNum.Text = Trim(txtNum.Text) txtPrice.Text = Trim(txtPrice.Text) If MsgBox("确定更新？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then SQLStr = "UPDATE t_icitem_new SET " SQLStr &= "fnumber=’" & cmbMonth.SelectedItem & "’, " SQLStr &= "fplanprice=’" & txtPrice.Text & "’ " SQLStr &= "WHERE fshortnumber=’" & txtNum.Text & "’" If Not SQLFill2(conn, SQLStr) Then MsgBox("抱歉，更新失败:(") End If Show1() End If End Sub’新增 Private Sub SInsert() txtNum.Text = Trim(txtNum.Text) txtPrice.Text = Trim(txtPrice.Text) If MsgBox("确定新增？", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then SQLStr = "SELECT fshortnumber " SQLStr &= "FROM t_icitem_new " SQLStr &= "WHERE fshortnumber = ’" & txtNum.Text & "’ " SQLFill(conn, DA, DS, SQLStr, "Tmp") If DS.Tables("Tmp").Rows.Count = 0 Then ’如果没有资料则新增 SQLStr = "INSERT INTO t_icitem_new (fshortnumber,fnumber,fplanprice) VALUES(" SQLStr &= "’" & txtNum.Text & "’, " SQLStr &= "’" & cmbMonth.SelectedItem & "’, " SQLStr &= "’" & txtPrice.Text & "’)" If Not SQLFill2(conn, SQLStr) Then MsgBox("抱歉，新增失败:(") End If Show1() Else MsgBox("资料已存在") End If End If End Sub’删除 Private Sub SDelete() txtNum.Text = Trim(txtNum.Text) txtPrice.Text = Trim(txtPrice.Text) If MsgBox("确定删除" & txtNum.Text & "？", MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then SQLStr = "DELETE FROM t_icitem_new " SQLStr &= "WHERE fshortnumber=’" & txtNum.Text & "’" If Not SQLFill2(conn, SQLStr) Then MsgBox("抱歉，删除失败:(") End If Show1() End If’键盘顺序 Private Sub txt_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) _ Handles txtFshop.KeyDown, txtItem.KeyDown Select Case e.KeyCode Case Keys.Return SendKeys.Send("{TAB}") Case Keys.Right SendKeys.Send("{TAB}") Case Keys.Left SendKeys.Send("+{TAB}") Case Keys.Down SendKeys.Send("{TAB 10}") Case Keys.Up SendKeys.Send("+{TAB 10}") End Select End Sub
DataGrid控件的简介
DataGrid 控件的每一个单元格都可以包含文本值，但不能链接或内嵌对象。可以在代码中指定当前单元格，或者用户可以使用鼠标或箭头键在运行时改变它。通过在单元格中键入或编程的方式，单元格可以交互地。单元格能够被单独地选定或按照行来选定。如果一个单元格的文本太长，以致于不能在单元格中全部显示，则文本将在同一单元格内折行到下一行。要显示折行的文本，必须增加单元格的Column对象的Width属性和/或DataGrid控件的RowHeight属性。在设计时，可以通过调节列来交互地改变列宽度，或在Column对象的属性页中改变列宽度。使用DataGrid控件的Columns集合的Count属性和Recordset对象的RecordCount属性，可以决定控件中行和列的数目。DataGrid控件的可包含的行数取决于系统的资源，而列数最多可达32,767列。选择一个单元格，则ColIndex属性被设置，也就是选择了DataGrid对象的Columns集合中的一个Column对象。Column对象的Text和Value属性引用当前单元格的内容。使用Bookmark属性能够访问当前行的数据，它能够提供对下一级Recordset对象中记录的访问。DataGrid控件中的每一列都有自己的字体、边框、自动换行和另外一些与其他列无关的能够被设置的属性。在设计时，您可以设置列宽和行高，并且建立对用户不可见的列。您还能阻止用户在运行时改变格式。.NET 3.0 为我们提供了DataGridView控件使我们可以显示表格数据，相比.NET 2.0 之前的DataGrid控件，DataGridView控件提供了更强大更灵活的以表格形式显示数据的功能。
