求遍历并提取数据的代码（已解决）

todaynew

与代码无关，不过是查询问题而已。
select iif(数据1>0,数据1) as 值1, iif(数据2>0,数据2) as 值2,iif(数据3>0,数据3) as 值3  from tbname

todaynew

GAOZHONG 发表于 2011-4-8 11:04
不是我要的排列，我可能没表达清楚，我要实现如下效果：
数据1      数据2       数据3
  12           1 ...

http://www.office-cn.net/thread-96591-1-1.html

todaynew

GAOZHONG 发表于 2011-4-8 11:10
我的目的可以查看
请帮忙解决子报表数据排列的问题，急！
http://www.office-cn.net/forum-viewthread-ti ...

你什么都不会呀，呵呵。

1、写一个自定义函数：
function valUpdate()
dim rs as new adodb.recordset
dim rs0 as new adodb.recordset
dim i as long,j as long
rs.Open "你的数据表名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs0.Open "你的临时数据表名称", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
if rs0.recordcount>0 then
   for i=1 to rs0.recordcount
       rs0.delect
       rs0.update
   next
end if
for i=1 to rs.recordcount
      fro j=0 to rs.fileds.count-1
           if rs.filds(j).name="数据1" or rs.filds(j).name="数据2" or rs.filds(j).name="数据3"  then
                if nz(rs.filds(j).value,0)<>0 then
                      rs0.addnew
                      rs0("临时表中的字段名称").value=rs.filds(j).value
                      rs0.update
                end if
          end if
     next
    rs.movenext
next
rs.close:set rs=noting
rs0.close:set rs0=nothing
end function

2、在某个按钮事件中调用该函数：
call valUpdate