Question

请问如何在VB中给一个多维结构体数组赋值？

Public Type job_task
i_part As Integer
j_oper As Integer
k_mach As Integer
job_oper As Integer '
End Type
我想定义一个3*3的结构体数组
dim aa(3,3) as job_task
可程序运行，提示不能赋值，

Answer 1

你的aaa.中的a是个字符串数组，

当然要一个一个的赋值，不然，可以可以C语言中的memcpy之类的函数，
直接进行内存块的复制，

你要把这个数组写进二进制，使用input就可以了，
写入这前要把这个结构转换成二进制的数组，以下代码可以参考一下：

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _
(dest As Any, Source As Any, ByVal numBytes As Long)

Private Type aa
a(8) As String
End Type

Private Sub Command1_Click()
Dim aaa As aa

aaa.a(1) = "HELLO"
aaa.a(2) = "GIRL"

Dim bt() As Byte
ReDim bt(Len(aaa) + 1)
CopyMemory bt(0), aaa, Len(aaa) '复制到二进制数组中

'然后调用你的input函数写入文件中

End Sub

Answer 2

请贴一下你给数组赋值的代码段
或者我先说说怎么给你那个数组赋值吧，方法跟一维的差不多
对结构体内的一个变量赋值，如 aa(1, 1).i_part = 41
当然也可以整体赋值 aa(1, 2) = aa(1, 1)
至于把什么数据装进去就不是我的事了，呵呵

追问

aa(1, 1).i_part = 41
这个方法根本赋不进去，请问有什么别的方法吗？

追答

之前的回答都是预先测试过了的，如果赋值不进去，建议用F8调试一下，看看可能出现问题的地方，当然，你可以另外新建个工程对上述的方法做个小测试来验证可行性

Answer 3

各位好：请问vb中结构体用起来好像没有c语言中的方便，不知道怎么去赋值，你的aaa.中的a是个字符串数组， 当然要一个一个的赋值，不然，可以可以C