首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

一个有关问题,多谢

2012-03-09 
请教高手一个问题,急,谢谢!If Trim(Text1.Text) 表1.DataGrid1.Columns(1).Text Then表1.DataGrid1.Colu

请教高手一个问题,急,谢谢!
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第一行的第三列”,当寻求到“除第一行以外两表相同的数据”的时候,此段代码不会更新“除第一行以外的其他行的第三列”,不知为什么?请各位高人给以指点,本人在此先谢过!

[解决办法]
粗略看下只明白大意,只是你没想过用循环吗?
[解决办法]
dim rsX as adodb.recordset

set 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

热点排行