Office中国论坛/Access中国论坛

标题: [求助]程序设计问题 [打印本页]

---

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

  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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3