计数问题

[yang yang yang123]

rs.Open "select count(姓名) as 姓名 from 工资表 where 班组名称 like '%" & Field30 & "%' and 所属工资月份= (select 月份 from 月份表)", Cnn, adOpenKeyset, adLockOptimistic

For i = 1 To rs.Fields("姓名")
Field62 = i
Next i
rs.Close
想把工资表做个序号 可field62 显示却是总人数 没有做到从1到总人数的序号 怎么回事呢？

[cbm6666]

Field30 是个变量吗 ? 如果是第30个栏位那么你的语法就错了, 看起来又像TextBox那就没问题

也不知道 Field62 是什么 ?

但下面这行肯定是对的
For i = 0 To rs.recordcount -1 '从头读到尾

[yang yang yang123]

Field30 和 Field62 其实是和textbox一样的控件

[cbm6666]

你应该改用数组控件
field1 field2....field62
改为 fld(0) fld(1)....fld(61) '别用field这字眼,太敏感了

如此下面三行代码, 便可以将你所有的字段全部填入你的TextBox中

For i = 0 To 61
if rs.Fields(i) <>"" then fld(i).text=rs.Fields("姓名")
Next i

看你上面从第一笔到最后一笔, 你不能就放在Field62里面,你看到的当然只有最后那笔.

你该用Datagrid或Msflexgrid来显示你的数据为妥吧?

[cbm6666]

更正

For i = 0 To 61
if rs.Fields(i) <>"" then fld(i).text=rs.Fields(i)
Next i

[yang yang yang123]

我做的是工资报表 用的第三方控件activereport2.0 不知道你听说过没有 和VB自带的datareport类似 但功能要强
如果你没用过 我在这里很难说清楚啊