[求助]请高手帮忙

yangsj

我在一个窗体上用表格的形式来显示数据库内容，并在表格右边增加一个文本框作为计算字段，以前面数据为依据进行计算并将结果放入文本框显示出来，可每次运行程序后每一行上的文本框的值全部一样，都是最后一次赋给该文本框的值，比如我想把每一行的行号显示在该行的文本框中，结果每一行的文本框中都显示的是最后一行的行号。代码如下，请各位高手帮忙指出错误所在，非常感谢！

  Dim cur_row, max_row As Long
  cur_row = 0
  max_row = Me.Recordset.RecordCount
  Me.Recordset.AbsolutePosition = 0
  Do
    cur_row = cur_row + 1
    Me.文本18.SetFocus
    Me!文本18 = Str(cur_row)
    If cur_row = max_row  Then
      Exit Do
    End If
    DoCmd.RunCommand acCmdRecordsGoToNext
  Loop

fan0217

放上例子来.

同时将标题改改　．

[此贴子已经被作者于2006-7-23 23:11:40编辑过]