anyone can help me fix this coding..
this coding output is string output..
but i want output in double..
Private Sub OutputPremium()
With ds.Tables("KadarPremium").Rows(cmbPremium.SelectedIndex)
Select Case cmbPelan.Text
Case (1)
lblPremium.Text = .Item("20TP1")
Case (2)
lblPremium.Text = .Item("20TP2")
Case (3)
lblPremium.Text = .Item("20TP3")
Case (4)
lblPremium.Text = .Item("20TP4")
Case (5)
lblPremium.Text = .Item("20TP5")
Case (6)
lblPremium.Text = .Item("20TP6")
Case (7)
lblPremium.Text = .Item("20TP7")
Case Else
'whatever you want to do here
End Select
If cmbJPembayaran.Text = "Bulanan" Then
lblPremiumJP.Text = lblPremium.Text \ 12
ElseIf cmbJPembayaran.Text = "3 Bulan" Then
lblPremiumJP.Text = (lblPremium.Text \ 12) * 3
ElseIf cmbJPembayaran.Text = "6 Bulan" Then
lblPremiumJP.Text = lblPremium.Text \ 2
Else
'whatever
End If
End With
End Sub