DataGrid刷新的问题!

Question

大家好,我有一个窗体,功能是修改数据库里面的内容. 
左边有一个DataGrid控件.右边是一些文本控件,文本控件里面的内容是绑定在左边DataGrid当前行的某列值. 问题:当我修改后点保存时,我希望在左边DataGrid控件当相对应的内容也发生变化怎么怎么实现呢?谢谢各位了.  

Answer 1

说详细一点+贴上代码来：DataGrid中的数据是与Adodc绑定的，有没有办法当我点击保存时。在DataGrid中立即显示我刚刚修改后的结果呢？ AdminBrowseDataGrid为(DataGrid控件) 
我的用过的一种方法 保存后，首先刷新一下Adodc 
然后再 Set AdminBrowseDataGrid.datasource=Adodc 这样我试过了，也不行，有什么好的方法吗？ 你看我的代码： 
Function Kong() '自定义DataGrid控件与文本框绑定。 
 AdminBrowseUser.Text = AdminBrowseDataGrid.Columns(1).Text 
 AdminBrowseSex.Text = AdminBrowseDataGrid.Columns(3).Text 
 AdminBrowseMobileTel.Text = AdminBrowseDataGrid.Columns(4).Text 
 AdminBrowseAddress.Text = AdminBrowseDataGrid.Columns(5).Text 
End Function Private Sub AdminBrowseDataGrid_RowColChange(LastRow As Variant, ByVal LastCol As Integer) 
 Call Kong '调用自定义绑定函数 
End Sub Private Sub AdminBrowseSave_Click() '保存按钮 
 If Conn.State <> 0 Then Conn.Close 
 Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\Hydata.mdb" & ";Mode=ReadWrite;Persist Security Info=False" 
  
 Rs.CursorLocation = adUseClient 
 If Rs.State <> 0 Then Rs.Close 
 Rs.Open "Select * From Admin Where AdminUser='" & AdminBrowseUser.Text & "'", Conn, adOpenStatic, adLockOptimistic  If Not Rs.EOF Then 
 Rs.MoveFirst 
 Rs.Fields("AdminMobileTel").Value = AdminBrowseMobileTel.Text 
 Rs.UpdateBatch adAffectAllChapters  MsgBox "资料修改成功，请记住新密码！", vbOKOnly + vbExclamation, "提示信息" 
  
 AdminBrowseDataGrid.Refresh 
 Rs.Close 
 Conn.Close 
 Set Rs = Nothing 
 Set Conn = Nothing 
 End If 
End Sub