这个程序为什么会修改列表框里面的数据?

select 学生成绩表
locate for 姓名 = alltrim(thisform.pageframe1.page1.container1.text1.value)
if not found ( )
     messagebox("没有此学生",4+48+0,"信息查询")
endif
    thisform.refresh
    thisform.pageframe1.page1.container1.visible=.f.
    thisform.pageframe1.page1.grid1.recordsource=''
    select * from  学生成绩表 where 姓名=alltrim(thisform.pageframe1.page1.container1.text1.value) into  cursor mm
  if _tally>0
     thisform.pageframe1.page1.grid1.recordsource='mm'
  else
    messagebox("没有该学生的信息！！！")
  endif
    thisform.pageframe1.page1.grid1.refresh

当我在文本框里输入姓名,点查询时,会修改第一个记录的姓名,使它成为我们输入的姓名.如果列表框里存在你查询的姓名,则会出现两个相同姓名的信息.谁能告诉我为什么吗?

估计你的thisform.pageframe1.page1.container1.text1与表绑定了。

真的是这样的,谢谢高手