设为首页收藏本站
开启辅助访问 切换到窄版
搜索
第一问答网»论坛 › 中问网 › 问答 › 关于一个循环的问题 小弟求解

关于一个循环的问题 小弟求解

[复制链接]
查看11 | 回复4 | 2021-1-27 08:22:00 | 显示全部楼层 |阅读模式
Fora=1Todt.Columns.Count-2
Whilerd.Read()
Ifrd("ksdm")="10001001"Then
dt.Rows(0).Item(a)=rd("fyhj")
EndIf
EndWhile
Next
这样为什么只出来一个数据
我的本意是想通过循环将所有的fyhj添加到第1行里已经建立的列中..
我应该怎么做求解啊
分 -->
回复

使用道具 举报

千问 | 2021-1-27 08:22:00 | 显示全部楼层
dt.Rows(0)
你这不是每次都修改第1行的数据吗
你定义的变量a呢,没用?
dt.Rows(0).Item(a)是啥,你想把数据写入这一行的许多列里去??
回复

使用道具 举报

千问 | 2021-1-27 08:22:00 | 显示全部楼层
Ifrd("ksdm")="10001001"Then
dt.Rows(0).Item(a)=rd("fyhj")
你需要循环列,读取每一列,然后赋值啊
你这while只是循环读取行
dt是个二维表,你至少需要2重循环
回复

使用道具 举报

千问 | 2021-1-27 08:22:00 | 显示全部楼层
把for循环放到while循环里面,而不是放到外面
while是循环读取行,然后再用for循环读取列
否则你for是循环列,但是while里已经将行都读完了
再执行第二次for循环,while里已经没有行了,当然就不再读取了
回复

使用道具 举报

千问 | 2021-1-27 08:22:00 | 显示全部楼层
能不能写一个列子给我
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

千问

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
回复楼主 返回列表
热门排行