vb的datagrid添加行

可以将DataGrid控件的属性DataSource与Ado Data控件绑定。使用Ado Data控件的Recordset 属性的AddNew 方法添加新行。Update 方法来保存对 Recordset 对象的当前记录所做的所有更改。    

DataSource 属性，返回或设置一个数据源，通过该数据源，数据使用者被绑定到一个数据库。

ADO Data 控件使您能使用 Microsoft ActiveX Data Objects (ADO)

快速地创建一个到数据库的连接。

通过将 DataSource 属性设置为 ADO Data 控件，把 ADO Data 控件连接到一个数据绑定的控件，例如

DataGrid、DataCombo、或 DataList 控件。

以下代码是将输入在文本框的数据添加到数据表，在绑定的DataGrid控件后添加一行。

Private Sub Command1_Click()

    Adodc1.Recordset.AddNew

    Adodc1.Recordset(0) = Text1

    Adodc1.Recordset(1) = Text2

    Adodc1.Recordset(2) = Text3

    Adodc1.Recordset(3) = Text4

    Adodc1.Recordset.Update

End Sub

Private Sub Form_Load() '建立数据库表连接，绑定DataGrid控件

    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" & App.Path & "\Data\wd.mdbPersist Security Info=False"

    Adodc1.RecordSource = "select * from jishijilu"

    Adodc1.Refresh

    Set DataGrid1.DataSource = Adodc1

End Sub

Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)

'显示用户所单击的单元的文字、行和列的信息

Debug.Print DataGrid1.TextDataGrid1.RowDataGrid1.Col

End Sub

这是你的第二个问题。

张志晨

第一个问题：

你自己试下：

通过使用 Columns 集合和 Column 对象的属性和方法，可以在程序中添加、删除列。

要在运行时添加一列，可以使用 Add 方法。如果首先声明一个变量，并将新对象赋给该变量，就可以用简明的代码设置各种属性。

Private Sub AddColumn()

'在最右边的位置添加一列。然后设置其 Visible、Width、

'Caption以及 Alignment 属性。DataField 属性则指定

' 该列将绑定到哪一个字段。

Dim c As Column

Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)

With c

.Visible = True

.Width = 1000

.Caption = “我的新列”

.DataField = Adodc1.Recordset.Fields(“ProductName”).Name

.Alignment = dbgRight

End With

End Sub

可以使用方法来删除任意一列。请确保使用 ColIndex 参数来指定要删除的列。下面的代码将删除被单击的列。

Private Sub DataGrid1_HeadClick(ByVal ColIndex As Integer)

DataGrid1.Columns.Remove ColIndex

End Sub

另外：

在VB6中，Datagrid控件应该是初学者最喜使用的控件之一，它对数据简单绑定却又往往束缚住手脚。正确的使用的Datagrid必须首先了解它的本质。

Datagrid的本质在于它从来就不是一个真正的网格控件。我们可以片面理解，一个真正的网格控件就是必须将数据脱离Recordset而读进本身的控件。如:Msflexgrid,Mshflexgrid,Spread这些都属于真实的网格控件，我们可以独立的设置这些控见的rows,cols。相反Datagrid,Listview则不属于网格控件。

了解完本质，则可以清楚的知道，因为Datagrid不能将数据读进自身，所以实际它是脱离不了Recordset，我们需要显示的数据效果，只能通过ADO控件来 *** 纵Recordset的表现形式来完成任务。

建议转学VS2011，学习Msflexgrid,Mshflexgrid控件知识。

---