Radio Button in Vantage 8.03

I have a customization I want to do on the Order Entry screen. I am
having problems with using radio buttons. My screen has 2 radio
buttons, 1 for No and 1 for Yes. When I created the radio buttons in
6.1 I told it to use a value of 1 for No and 2 for Yes. I have
converted the data over to 8.03 and the values show up in the
Character01 field in the OrderHed table. I have used the form event
wizard to get the radio buttons to populate the Customer01 field. My
problem is how do I get the correct radio button to be activated if
there is already a value of 1 or 2 in the Customer01 field. Below is
the form event wizard script

Private Sub OrderHed_AfterFieldChange(ByVal sender As object, ByVal
args As DataColumnChangeEventArgs) Handles
OrderHed_Column.ColumnChanged
'// ** Argument Properties and Uses **
'// args.Row("[FieldName]")
'// args.Column, args.ProposedValue, args.Row
'
'Add Event Handler Code
'
dim myOrderHed as EpiDataView = CType(oTrans.EpiDataViews
("OrderHed"),EpiDataView)


Select Case args.Column.ColumnName


Case "CheckBox01"
If myOrderHed.dataView(myOrderHed.Row)("Checkbox01") then
myOrderHed.dataView(myOrderHed.Row)("Character01") = "1"

else
myOrderHed.dataView(myOrderHed.Row)("Character01") = ""
end if
Case "CheckBox02"
If myOrderHed.dataView(myOrderHed.Row)("Checkbox02") then
myOrderHed.dataView(myOrderHed.Row)("Character01") = "2"
else
myOrderHed.dataView(myOrderHed.Row)("Character01") = ""
end if
Case Else

End Select

End Sub



Thanks

Dan Ernst

Correct Craft, Inc.