locked
Is there any other way to validate? RRS feed

  • Question

  • Hi, I am trying to validate textbox values during runtime in vb.net I have following code which is validating txtno from database table tblmachines. But i have problem with chartype and stringtype. Is there any other solution to fix that problem?

    Private Sub txtno_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtno.KeyPress
            If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then
                e.Handled = True
                If (Me.txtno.Text = "") Then
                    Interaction.MsgBox("!!!!!!!!Machine number can not be empty. Please Correct.!!!!!!!!", &H40, "Check Machine Number")
                    Me.txtno.Focus()
                ElseIf (Me.txtno.Text = "0") Then
                    Me.txtturnover.Focus()
                Else
                    Dim table As DataTable = Me.DataSet1.Tables.Item("tblmachines")
                    Dim defaultView As DataView = table.DefaultView
                    defaultView.RowFilter = ("local_no='" & Me.txtno.Text & "'")
                    If ((Char.IsLetter(CharType.FromString(Me.txtno.Text)) Or (defaultView.Count = 0)) Or (StringType.StrCmp(Me.txtno.Text, "", False) = 0)) Then
                        Interaction.MsgBox("This machine is not on database. Please correct machine number.", &H40, "Check Machine Number")
                        Me.txtno.Focus()
                    Else
                        Me.txtturnover.Focus()
                    End If
    
                End If
            End If

    Thursday, June 24, 2010 1:07 PM

Answers

All replies