再问一个问题，这次是关于DataGrid的

Question

上一贴我请教了MSHFlexGrid的使用方法，受益匪浅。现在我想学一下DataGrid，也是请大家给个相关的例程，例如能联合TextBox或其他输入控件实现增、删、改的基本功能。

Answer 1

最基本的操作
Option ExplicitPublic rs As New ADODB.Recordset
Public conn As New ADODB.ConnectionPrivate Sub cmdAdd_Click()
 On Error Resume Next
 rs.AddNew 
End SubPrivate Sub cmdDel_Click()
 On Error Resume Next
 rs.Delete
 
End SubPrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
 List1.AddItem "Female"
 List1.AddItem "Male"
 List1.Visible = TrueEnd Sub
Private Sub Form_Load()
 Dim strconn As String
 strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\test.mdb;Persist Security Info=False"
 conn.CursorLocation = adUseClient
 
 conn.Open strconn
 
 If rs.State = 1 Then rs.Close
 rs.Open "Select * from People", conn, adOpenKeyset, adLockPessimistic
 
 Set Me.DataGrid1.DataSource = rs
 
 With Me.DataGrid1
   .Columns(0).Caption = "ID"
   .Columns(1).Caption = "Name"
   .Columns(2).Caption = "Sex"
   .Columns(3).Caption = "Meno"
   .Columns(0).Width = 0
   .Columns(1).Width = 1200
   .Columns(2).Width = 1200
   .Columns(3).Width = 1500
  
   .Columns(2).Button = True
   
 End With
End SubPrivate Sub Form_Unload(Cancel As Integer)
 rs.MoveFirst
 
 rs.Close
 Set conn = Nothing
End SubPrivate Sub List1_Click()
 Me.DataGrid1.Columns(2).Text = Me.List1.Text
 Me.List1.Visible = False
 
End Sub

Answer 2

其實樓主還是參考msdn這樣比較好，有些東西硬是要自己看懂得的。