CopyMemory如何在二维数组中使用
For j = 0 To 21CC(j) = Mid(Trim(Sa(j)), 1, 11)
Text6(j) = CC(j)
Next j
M = 1
For K = 0 To 21
For L = 0 To 3
HoustDataByte(K, L) = CByte(Val("&H" & (Mid(CC(K), M, 2)))) '截取有效字符转换成字节数
M = M + 3
Next L
M = 1
CopyMemory HoustData(K), HoustDataByte(K, 0), 4 '问题行,二维数组中如何使用CopyMemory
Text9(K).Text = Format(HoustData(K), "0.00")
Next K