请教高手一个问题，急，谢谢！

Question

If Trim(Text1.Text) = 表1.DataGrid1.Columns(1).Text Then
   表1.DataGrid1.Columns(2).Text = ""
   表1.DataGrid1.Columns(2).Text = Text5.Text
Else
   End If
上面是我在表2里面的一段代码，我的目的是：寻求“表1”和“表2”相同的数据，然后将“表1的第三列”进行更新。
现在遇到的问题是：上面代码可以行得通，但是只会更新“表1第一行的第三列”，当寻求到“除第一行以外两表相同的数据”的时候，此段代码不会更新“除第一行以外的其他行的第三列”，不知为什么？请各位高人给以指点，本人在此先谢过！

Answer 1

dim rsX as adodb.recordsetset rsx=datagrid1.datasource
if not rsx is nothing then
with rsx
.movefirst
while not .eof
if rsx(列1字段名称)=trim(text1.text) then
rsx(列2字段名称)=text5.text
.movenext
wend
end if