求助 如何将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
...全文
35 1 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
yuiok215 2007-12-20
  • 打赏
  • 举报
回复
zijihui

7,785

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧