datagrid current record

  • Thread starter Thread starter Jose
  • Start date Start date
J

Jose

How obtain the current record in the datagrid? The idea is doubleclick and
show another form with this current recor of my datagrid.

Thanks a lot
 
Jose said:
How obtain the current record in the datagrid? The idea is doubleclick and
show another form with this current recor of my datagrid.

Thanks a lot
Click to expand...
Use the underlying data source instead.

Tom
 
For starters, you need an easy way to reference what is currently
selected on the datagrid control. Start with something like this:
==============================================================

Private Sub dgvBranches_CurrentCellChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles dgvBranches.CurrentCellChanged

Try
'Determine which row and column selected and
'display contents of cells in proper text boxes.
CurrentRow = dgvBranches.CurrentCell.RowNumber
CurrentColumn = dgvBranches.CurrentCell.ColumnNumber
ShowTheCells()

Catch ex As Exception
LogErrors(ex, " In frmMain_dgvBranches_CurrentCellChanged")
End Try

End Sub
===============================================================

Once you have that settled then you can do things like passing values
into text boxes and such. There is a lot of formatting in this example
since I wanted to make sure that everything looked good and would save
in a consisten format in the database. Here is an example:

===============================================================

Private Sub ShowTheCells()
'Use the cells from the selected row to display in the proper
text boxes

Try
dgvBranches.Select(CurrentRow)
txtState.CharacterCasing = CharacterCasing.Upper
txtBranchNum.Text = Trim(dgvBranches.Item(CurrentRow, 0))
txtBranchName.Text =
Trim(StrConv(dgvBranches.Item(CurrentRow, 1), VbStrConv.ProperCase))
txtRegCode.Text = Trim(dgvBranches.Item(CurrentRow, 2))
txtOrder.Text = Trim(dgvBranches.Item(CurrentRow, 3))
txtRegName.Text = RegionName(dgvBranches.Item(CurrentRow,
2))

If dgvBranches.Item(CurrentRow, 4) = "True" Then
cbxActive.Checked = True
ElseIf dgvBranches.Item(CurrentRow, 4) = "False" Then
cbxActive.Checked = False
End If

Dim i As Integer

For i = 0 To myDataSet.Tables("MySQL Branches").Rows.Count
- 1

If dgvBranches.Item(CurrentRow, 0) =
myDataSet.Tables("MySQL Branches").Rows(i).Item(0) Then
txtStreet.Text = StrConv(myDataSet.Tables("MySQL
Branches").Rows(i).Item(2), VbStrConv.ProperCase)
txtZip.Text = myDataSet.Tables("MySQL
Branches").Rows(i).Item(3)
txtCity.Text = StrConv(myDataSet.Tables("MySQL
Branches").Rows(i).Item(4), VbStrConv.ProperCase)
txtState.Text = StrConv(myDataSet.Tables("MySQL
Branches").Rows(i).Item(5), VbStrConv.UpperCase)
txtPhone.Text = myDataSet.Tables("MySQL
Branches").Rows(i).Item(6)
txtFax.Text = myDataSet.Tables("MySQL
Branches").Rows(i).Item(7)
txtConFirst.Text = StrConv(myDataSet.Tables("MySQL
Branches").Rows(i).Item(8), VbStrConv.ProperCase)
txtConLast.Text = StrConv(myDataSet.Tables("MySQL
Branches").Rows(i).Item(9), VbStrConv.ProperCase)
txtBranchEmail.Text =
StrConv(myDataSet.Tables("MySQL Branches").Rows(i).Item(10),
VbStrConv.UpperCase)
End If

Next

Catch ex As Exception
LogErrors(ex, " In ShowTheCells()")
End Try

End Sub

================================================================

"tomb" does have a good point about using the underlying data though.
I think you would have to use the currency manager to accomplish that
one. Hope this helps.

Alan
 
Back
Top