Problem Setting radio buttons based on data value

[Greg]

I'm trying to set a group of radio buttons based on the value of a
text field in a dataset. This is my code:

Dim ds As DataSet
ds = dtsVideo
Dim dt As DataTable = ds.Tables("tblPeramItems")
Dim dr As DataRow = dt.Rows(0) 'first row in datatable

If dr("strStockGroup") = "DVD" Then
rdbDVD.Checked = True
ElseIf dr("strStockGroup") = "Video" Then
rdbVideo.Checked = True
ElseIf dr("strStockGroup") = "Computer Game" Then
rdbComputerGame.Checked = True
End If

This works as long as I have "Option Strict" set to "Off". Otherwise
i get the error "Option strict on disallows operands of type object
for operator '='.
Use the 'Is' operator to test for object Identity"

Unfortunately I am required to have "Option Strict" set to "ON". Any
ideas on how I can make this work?

Greg

[Steen Gellett]

"Greg" <gr******@tpg.com.au> skrev i en meddelelse
news:c2**************************@posting.google.c om...

I'm trying to set a group of radio buttons based on the value of a
text field in a dataset. This is my code:

Dim ds As DataSet
ds = dtsVideo
Dim dt As DataTable = ds.Tables("tblPeramItems")
Dim dr As DataRow = dt.Rows(0) 'first row in datatable

If dr("strStockGroup") = "DVD" Then
rdbDVD.Checked = True
ElseIf dr("strStockGroup") = "Video" Then
rdbVideo.Checked = True
ElseIf dr("strStockGroup") = "Computer Game" Then
rdbComputerGame.Checked = True
End If
A better way to make this is :

Select Case LCase(dr("strStockGroup")) ' LCase makes it lowercase
Case "dvd"
rdbDVD.Checked = True
Case "video"
rdbVideo.Checked = True
Case "computer game"
rdbComputerGame.Checked = True
End Select

This works as long as I have "Option Strict" set to "Off". Otherwise
i get the error "Option strict on disallows operands of type object
for operator '='.
Use the 'Is' operator to test for object Identity"

Unfortunately I am required to have "Option Strict" set to "ON". Any
ideas on how I can make this work?

Greg

[The Grim Reaper]

Replace If dr("strStockGroup") = "DVD" Then
with If dr("strStockGroup").ToString = "DVD" Then

Option Strict On requires all datatypes are consistent - so you must tell
..NET that the data from your row is a string.

As I've seen mentioned many many times in this group, your post should be
sent to .NET forums, not this VB6 forum.
__________________________________________
The Grim Reaper

"Greg" <gr******@tpg.com.au> wrote in message
news:c2**************************@posting.google.c om...

I'm trying to set a group of radio buttons based on the value of a
text field in a dataset. This is my code:

Dim ds As DataSet
ds = dtsVideo
Dim dt As DataTable = ds.Tables("tblPeramItems")
Dim dr As DataRow = dt.Rows(0) 'first row in datatable

If dr("strStockGroup") = "DVD" Then
rdbDVD.Checked = True
ElseIf dr("strStockGroup") = "Video" Then
rdbVideo.Checked = True
ElseIf dr("strStockGroup") = "Computer Game" Then
rdbComputerGame.Checked = True
End If

This works as long as I have "Option Strict" set to "Off". Otherwise
i get the error "Option strict on disallows operands of type object
for operator '='.
Use the 'Is' operator to test for object Identity"

Unfortunately I am required to have "Option Strict" set to "ON". Any
ideas on how I can make this work?

Greg