待，帮帮忙

在线等待，帮帮忙
'定义
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 '这里报错，不知道怎么解决,也不知道怎么读写数据