求助 如何将debug打印的内容显示在listBox里的问题 *在线* 谢谢

yuiok215 2007-12-20 12:19:59
我想要将debug打印出来的数据逐行显示在listBox里面,下面是程序的主要代码,现在是能逐行显示,但是每条记录都不全,为什么,请指导以下,谢谢
我想问题出现在list1.AddItem那里好像


Open strFile For Random As #intFile Len = intRecSize
For i = 0 To intTotalRec - 1
Get #intFile, , udtDat
udtDats(i) = udtDat
Debug.Print "第" & (i + 1) & "个记录:{";
For j = 0 To 1

Debug.Print IIf(j > 0, ",") & CStr(udtDat.hgroup(j));
aa = CStr(udtDat.hgroup(j))
Next
Debug.Print "},{";
For j = 0 To 12
Debug.Print IIf(j > 0, ",") & CStr(udtDat.hname(j));
bb =CStr(udtDat.hname(j))
Next
Debug.Print "},{";
For j = 0 To 1
Debug.Print IIf(j > 0, ",") & CStr(udtDat.yobi(j));
cc=CStr(udtDat.yobi(j))
Next
Debug.Print "}"
list1.AddItem aa+bb+cc,i
close #intFile
...全文
6 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuiok215 2007-12-20
zijihui
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7449

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告