SHOW:
|
|
- or go back to the newest paste.
| 1 | - | like this sir.. the name listed below this are the name that have a discount and if you are not a member you dont have a discount please help me |
| 1 | + | Try this... |
| 2 | Dim a, b As String | |
| 3 | - | a = (TextBox1.Text) |
| 3 | + | a = TextBox1.Text |
| 4 | - | b = (TextBox2.Text) |
| 4 | + | b = (TextBox2.Text) |
| 5 | - | If a = "Julius B. Tanguilig" Then |
| 5 | + | Select Case a |
| 6 | - | TextBox2.Text = "09268862690/425673" |
| 6 | + | Case "Julius B. Tanguilig": |
| 7 | - | ElseIf a = "Jodel D. Avendano" Then |
| 7 | + | TextBox2.Text = "09268862690/425673" |
| 8 | - | TextBox2.Text = "09053146571/432467" |
| 8 | + | Case "Jodel D. Avendano": |
| 9 | - | ElseIf a = "Mara Grantoza" Then |
| 9 | + | TextBox2.Text = "09053146571/432467" |
| 10 | - | TextBox2.Text = "09357648907/423094" |
| 10 | + | Case "Mara Grantoza": |
| 11 | - | Else |
| 11 | + | TextBox2.Text = "09357648907/423094" |
| 12 | - | TextBox2.Text = " " |
| 12 | + | Case Else: |
| 13 | TextBox2.Text = String.Empty | |
| 14 | End Select |
