How to show text , value is an integer in database

albert albert

Hi everybody,

I have tree Radiobuttons. and an database field: ActionDefinitionActivityType that has three integer values: 1,2,3.

In the aspx form I get the values: 1,2,3 depending what you have selected.

But I want to have text showing for: 1 - Overig, 2-werk, 3-reizen.

I have this as code:

[code]

Sub DataToForm(ByVal dataobj As DataLayer.DataObject)

With dataobj

txtActionDefinitionDescription.Text = .GetVal("ActionDefinitionDescriptionNL")

txtActionDefinitionDescriptionDE.Text = .GetVal("ActionDefinitionDescriptionDE")

txtActionDefinitionDescriptionFR.Text = .GetVal("ActionDefinitionDescriptionFR")

txtActionDefinitionDescriptionUK.Text = .GetVal("ActionDefinitionDescriptionEN")

txtNL.Value = .GetVal("ActionDefinitionDescriptionNL")

txtDE.Value = .GetVal("ActionDefinitionDescriptionDE")

txtFR.Value = .GetVal("ActionDefinitionDescriptionFR")

txtEN.Value = .GetVal("ActionDefinitionDescriptionEN")

If .GetVal("ActionDefinitionActivityType") = 1 Then

InputRadioButton1.Checked = True

End If

If .GetVal("ActionDefinitionActivityType") = 2 Then

InputRadioButton2.Checked = True

End If

If .GetVal("ActionDefinitionActivityType") = 3 Then

InputRadioButton3.Checked = True

End If

End With

End Sub

[/code]

So if you select 1 you see in the view(aspx Form) 1, but you have to see: overig

THank you

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

albert albert12y ago
I have it now like this:

[code]
ds = objMeld.GetRows("ActionDefinition", , filter).Copy
ds.Tables(0).Columns.Add("ActionDefinitionType", GetType(String))

Dim i As Integer = 0

For Each dr As DataRow In objMeld.Rows

Select Case objMeld.GetVal("ActionDefinitionActivityType", dr)
Case 1
ds.Tables(0).Rows(i).Item("ActionDefinitionType") = "overig"
Case 2
ds.Tables(0).Rows(i).Item("ActionDefinitionType") = "reizen"
Case 3
ds.Tables(0).Rows(i).Item("ActionDefinitionType") = "werk"
End Select
i += 1
Next

Gridform1.Data = ds
[/code]

then I get this error:

Kan de tabel 0 niet vinden.
Beschrijving: Er is een onverwerkte uitzondering opgetreden tijdens het uitvoeren van de huidige webaanvraag. Raadpleeg de stacktracering voor meer informatie over deze fout en de oorsprong ervan in de code.

Details van uitzondering: System.IndexOutOfRangeException: Kan de tabel 0 niet vinden.

Fout in bron:

Regel 30: Regel 31: ds = objMeld.GetRows("ActionDefinition", , filter).Copy Regel 32: ds.Tables(0).Columns.Add("ActionDefinitionType", GetType(String)) Regel 33: Regel 34:

Bronbestand: D:\inetpub\wwwroot\_RSM_V39\RSM\RSM_V39\IT\ActionDefinition.aspx.vb Regel: 32
albert albert12y ago
I have it now like this:

[code]

ds = New DataLayer.ActionDefinitions().GetRows("ActionDefinition", , filter).Copy
ds.Tables(0).Columns.Add("ActionDefinitionActivityType", GetType(Integer))

Dim i As Integer = 0
For Each dr As DataRow In objMeld.Rows
Select Case objMeld.GetVal("ActionDefinitionActivityType", dr)
Case 1
ds.Tables(0).Rows(i).Item("ActionDefinitionActivityType") = "overig"
Case 2
ds.Tables(0).Rows(i).Item("ActionDefinitionActivityType") = "reizen"
Case 3
ds.Tables(0).Rows(i).Item("ActionDefinitionActivityType") = "werk"
End Select

AVG = objMeld.GetVal("ActionDefinitionActivityType", dr)

i += 1
Next

Gridform1.Data = ds
[/code]
albert albert12y ago
I try it like this:

[code]

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Wform = SearchForm1
Dim filter As String = ""
Dim ds As New DataSet
Dim objMeld As New DataLayer.ActionData
Dim AVG As Integer

If Wform.preRunMode = "2" Then
ActionDefinitionDescriptionNL.Text = ""
Wform.preRunMode = "0"
End If

filter = "1=1"

If Wform.formDelete Then
Dim objBus As New DataLayer.ActionData
objBus.DeleteRow(Wform.DetailKeys)
End If

If ActionDefinitionDescriptionNL.Text <> "" Then
filter &= " and ActionDefinitionDescriptionNL like '%" & stripInvalidSQLChars(ActionDefinitionDescriptionNL.Text.Trim) & "%'"
End If

'Gridform1.Data = New DataLayer.ActionDefinitions().GetRows("ActionDefinition", , filter)

ds = New DataLayer.ActionDefinitions().GetRows("ActionDefinition", , filter).Copy
ds.Tables(0).Columns.Add("ActionDefinition", GetType(Integer))

Dim i As Integer = 0
For Each dr As DataRow In objMeld.Rows
Select Case objMeld.GetVal("ActionDefinitionActivityType", dr)
Case 1
objMeld.GetVal("ActionDefinitionActivityType", dr)value = "overig"
Case 2
objMeld.GetVal("ActionDefinitionActivityType", dr).value = "werken"
Case 3
objMeld.GetVal("ActionDefinitionActivityType", dr).value = "Rezien"
End Select
'If objMeld.GetVal("MachineCounterStartDate", dr) <> Date.MinValue Then
'Months = DateDiff(DateInterval.Month, objMeld.GetVal("MachineInstallationDate", dr), objMeld.GetVal("MachineCounterStartDate", dr), Microsoft.VisualBasic.FirstDayOfWeek.Monday)
AVG = objMeld.GetVal("ActionDefinitionActivityType", dr)
'AVG = Math.Floor(AVG)
ds.Tables(0).Rows(i).Item("ActionDefinitionActivityType") = AVG
'End If
i += 1
Next

Gridform1.Data = ds

End Sub
End Class
[/code]

How to show text , value is an integer in database

Kan de tabel 0 niet vinden.