Dim ship_rowind As Integer = 0 Dim x_shipercode As Integer = 0 Dim x_shiplock As Integer = 0 Private Sub Dgv_shipper_CurrentCellChanged(sender As Object, e As EventArgs) Handles Dgv_shipper.CurrentCellChanged If Dgv_shipper.CurrentCellAddress.X < 0 OrElse Dgv_shipper.CurrentCellAddress.Y < 0 Then Exit Sub ship_rowind = Dgv_shipper.CurrentCell.RowIndex txt_shipper_name.Text = (Dgv_shipper.Item("shipper_name", ship_rowind).Value) txt_sheepr_addrs.Text = (Dgv_shipper.Item("shipper_add1", ship_rowind).Value) Txt_sheepr_add2.Text = (Dgv_shipper.Item("shipper_add2", ship_rowind).Value) x_shipercode = (Dgv_shipper.Item("shipper_code", ship_rowind).Value) x_shiplock = (Dgv_shipper.Item("shipper_lock", ship_rowind).Value) End Sub Private Sub Txt_shipper_name_TextChanged(sender As Object, e As EventArgs) Handles txt_shipper_name.TextChanged ????? End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)