Changing the value of textbox value result will not display correctly

Question

0.00/5 (No votes)

See more:

Hello
Please help me to get correct answer.
I Am using Combo box to change the value on particular record as GeneralWard, ICU, Room. But the textbox22 value was changed in Once
in second time it was not changed second time.
I am using
ComboBox as PatientID
TextBox1 as No. of Days by Calculating Days
TextBox22 as FinallBill
TextBox16 as GeneralWard
TextBox15 as Doctor Fee
TextBox14 as Sister Charges

the code is as
follows
Thanks in advance for giving solution

What I have tried:

Private Sub TextBox13_TextChanged(sender As Object, e As EventArgs) Handles TextBox13.TextChanged
        Dim calc As Integer
        Dim tot As Integer
        Try

            If TextBox13.Text = "General Ward" Then
                s = Val(Me.TextBox1.Text)
                Me.TextBox16.Text = gm
                Me.TextBox15.Text = dr
                Me.TextBox14.Text = nr

                calc = (Val(Me.TextBox14.Text) + Val(Me.TextBox15.Text) + Val(Me.TextBox16.Text) + Val(Me.TextBox17.Text))
                tot = calc * s
            ElseIf TextBox13.Text = "ICU" Then
                s = Val(Me.TextBox1.Text)
                Me.TextBox16.Text = icu
                Me.TextBox15.Text = dr
                Me.TextBox14.Text = nr

                calc = (Val(Me.TextBox14.Text) + Val(Me.TextBox15.Text) + Val(Me.TextBox16.Text) + Val(Me.TextBox17.Text))
                tot = calc * s
            ElseIf TextBox13.Text = "Room" Then
                s = Val(Me.TextBox1.Text)
                Me.TextBox16.Text = rm
                Me.TextBox15.Text = dr
                Me.TextBox14.Text = nr

                calc = (Val(Me.TextBox14.Text) + Val(Me.TextBox15.Text) + Val(Me.TextBox16.Text) + Val(Me.TextBox17.Text))
                tot = calc * s
            End If
            TextBox22.Text = tot

        Catch ex As Exception
            MsgBox("ERROR : " & ex.Message.ToString)
        End Try
    End Sub

Posted 20-Nov-18 3:41am

Snjana143

Updated 20-Nov-18 3:48am

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2018-11-20T03:49:00

The code you show will only change Textbox 22 if TextBox13 changes: unless that happens the event handler is not called.
So start with the debugger and make sure that the event handler is firing when you expect it to.

It's quite possible that this is all down to your use of default names for everything: it';s too easy to use the wrong text box somewhere and not notice. Do yourself a favour, and stop using Visual Studio default names for everything - you may remember that "TextBox8" is the mobile number today, but when you have to modify it in three weeks time, will you then? Use descriptive names - "tbMobileNo" for example - and your code becomes easier to read, more self documenting, easier to maintain - and surprisingly quicker to code because Intellisense can get to to "tbMobile" in three keystrokes, where "TextBox8" takes thinking about and 8 keystrokes...

Having at least 22 textboxes on the same form sounds like a problem to start with, but using the default names for them as well is just asking for maintenance problems.