HashTable problem

[Stoffel85]

Hi,

 

I have a problem showing an value from a hashtable

 

Here is how I fill it up

      Do While dr.Read()
       hsCat.Add(i, "Test")

       i += 1
     Loop

 

And here is how I try to read it

  Public Sub VulIn(ByVal pos As Integer)
     If (pos > -1) Then
       txtText.text = hsCat.Item(pos)

     End If
 End Sub

 

But that won't work because a conversion fromSystem.Object To Integer is not allowed when Option Strict On

 

Any help?

[PlausiblyDamp]

Are you sure it is complaining that it cannot convert from object to integer? I would have expected it to fail converting from Object to String when assigning to the textbox but that could be fixed by

txtText.Text = hsCat.Item(5).ToString()

 

If it really is failing on converting to an integer on which line is the error occurring?

[Stoffel85]

Thanks

 

It was indeed complaining about the conversion of System.Object to String

[Stoffel85]

Is it also possible to add an array as value in the hashtable?

and if yes, how do I read it?

[PlausiblyDamp]

something like

       Dim a() As String = {"a", "b", "c"}

       Dim h As New Hashtable()

       h.Add("test", a)

       Dim b() As String

       b = DirectCast(h.Item("Test"), String())

should do the trick