计数问题

yangdong475 2008-03-30 02:31:06
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到总人数的序号 怎么回事呢?
...全文
43 点赞 收藏 5
写回复
5 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yangdong475 2008-03-30
我做的是工资报表 用的第三方控件activereport2.0 不知道你听说过没有 和VB自带的datareport类似 但功能要强
如果你没用过 我在这里很难说清楚啊
回复
cbm6666 2008-03-30
更正

For i = 0 To 61
if rs.Fields(i) <>"" then fld(i).text=rs.Fields(i)
Next i
回复
cbm6666 2008-03-30
你应该改用数组控件
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来显示你的数据为妥吧?
回复
yangdong475 2008-03-30
Field30 和 Field62 其实是和textbox一样的控件
回复
cbm6666 2008-03-30
Field30 是个变量吗 ? 如果是第30个栏位那么你的语法就错了, 看起来又像TextBox那就没问题

也不知道 Field62 是什么 ?

但下面这行肯定是对的
For i = 0 To rs.recordcount -1 '从头读到尾
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7491

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-30 02:31
社区公告
暂无公告