高手帮忙,本人要更新 DataGrid1的表中数据,并以新的数据呈现在DataGrid1中

Question

'查找 TextBox 控件中指定的文本。
   FoundPos = rs.Find(DataGrid1.Text, , , rtfWholeWord)   '根据是否找到文本，显示相应的消息。   If FoundPos <> -1 Then
      '返回已找到文本所在行的行号。
      FoundLine = DataGrid1.GetLineFromChar(FoundPos)
      MsgBox "Word found on line " & CStr(FoundLine)
   Else
      MsgBox "Word not found."
   End If
   
         If rs.RecordCount <> 0 Then
            Set DataGrid1.DataSource = rs
                DataGrid1.Refresh
         End If

Answer 1

把DataGrid1.Refresh换成rs.Refresh，然后放到Set DataGrid1.DataSource = rs前面执行

Answer 2

刷新数据集因为你所用的rs是客户端游标或者你rs改为服务器端游标!!

Answer 3

rs 好像没有 Refresh 这个属性