or





Private Sub EditToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EditToolStripMenuItem.Click Dim frm As New frmAddEdit frm.GUID_User = Me.dgvUsers.Item(0, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.GUID_Group = Me.dgvUsers.Item(1, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtADName.Text = Me.dgvUsers.Item(2, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtUserName.Text = Me.dgvUsers.Item(3, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtEmail.Text = Me.dgvUsers.Item(4, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtLogin.Text = Me.dgvUsers.Item(5, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtPassword.Text = Me.dgvUsers.Item(6, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtTelNo.Text = Me.dgvUsers.Item(7, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtFax.Text = Me.dgvUsers.Item(8, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.cbActive.Checked = IIf(Me.dgvUsers.Item(9, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.GUID_Company = Me.dgvUsers.Item(10, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.cbLead.Checked = IIf(Me.dgvUsers.Item(11, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cbSplit.Checked = IIf(Me.dgvUsers.Item(12, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cbTelesales.Checked = IIf(Me.dgvUsers.Item(13, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() = "True", True, False) frm.cboOffice.SelectedValue = Me.dgvUsers.Item(14, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.txtAddress.Text = Me.dgvUsers.Item(15, Me.dgvUsers.SelectedCells(0).RowIndex).Value.ToString() frm.Text = "Edit User" frm.ShowDialog() End Sub