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