求助 如何将debug打印的内容显示在listBox里的问题 *在线* 谢谢
我想要将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