Question

VB.NET 关于OBJECT类传值给一个变量问题

For i = 1 To NumItems ' 数据的格式化 strBuf = Format(ItemValues(1)(i), "###,000")在这里，ItemValues通过监视模式，可以看到是这样的

如何将ItemValues的值赋值给strBuf？

Answer 1

strBuf =strBuf & Format(ItemValues(1)(i), "###,000") & vbcrlf

追问

看到图片了吗？ItemValues子目录下是object(0)，object(1),然后object(0)、object(1)下面分别有14个integer()， 而我是要将14个integer值获取出来哦

追答

是的，我写的这个就是加上链接符，把它们全都串起来的。然后加上回车符vbcrlf

追问

用你的办法试过了，strbuf还是显示Nothing。我曾今想过用这样的格式写法
strBuf = strBuf + Convert.ToString(ItemValues.object(1).integer(2))，但是没用

追答

你确定strBuf 是String 类型
‘多重数组多循环
For j = 0 To 1
For i =0 To NumItems
' 数据的格式化
strBuf = strBuf & Format(ItemValues(j)(i).ToString, "###,000") & vbCrLf
Next
Next

追问

strBuf确实是string 而ByRef ItemValues As Object
不行啊，strBuf依然是nothing

追答

我单独试过
Strbuff=format(5,"###,000")
msgbox(Strbuff)
你试一下

追问

我觉得问题不是出在format(5,"###,000")
还是出在如何将object类下面的某个数变成5