在线等待，帮帮忙
'定义
Public Class Map
Public item() As mapItem
End Class

Public Class mapItem
Public key As String
Public value As String
End Class

'读写数据
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim ddmap As Map=new Map()
Dim ddmapItem As mapItem

ddmapItem = New mapItem()
ddmapItem.key = "PASSWORD"
ddmapItem.value = "pwd"
ddmap.item(0) = ddmapItem '这里报错，不知道怎么解决,也不知道怎么读写数据

End Sub

[解决办法]
你要根据需要先把ddmap.item Redim一下才行啊!

Dim ddmap As Map=new Map()
Dim ddmapItem As mapItem

ddmapItem = New mapItem()
ddmapItem.key = "PASSWORD"
ddmapItem.value = "pwd"

Redim ddmap.item(0)

ddmap.item(0) = ddmapItem '这里报错，不知道怎么解决,也不知道怎么读写数据