frm1.vb

Chuong trinh tren PDA cho phep ket noi ve server va cap nhat du lieu ve PDA

Imports System.Data

Public Class Frm1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       
        Dim tb As New DataTable()
        Me.DataGrid1.DataSource = tb

        'tb.Rows(0)(0) = DBNull.Value.ToString


    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Me.Close()
        'FrmGiaoHang.Show()
        
        

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
       
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        Dim kq() As String
        Try
            Integer.Parse(e.KeyChar.ToString)

        Catch ex As Exception
            
            kq = Me.TextBox1.Text.Split(e.KeyChar.ToString)
            Me.TextBox1.Text = kq(0)
        End Try
        'MessageBox.Show(e.KeyChar.ToString)

    End Sub
End Class