Continuing --- How to DoubleClick Datagrid and get cell data

[gollnick]

I understand that doubleclick is not always relaible.. I am just trying to get cell data from a datagrid when I click or double click on a line. I can get the row and cell number ... but how do I get the data reporsented on that row?

With this...
Private Sub DataGrid1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.DoubleClick
Dim dgds As Object = DataGrid1.DataSource.ToString
Dim currentrow As Integer
currentrow = Me.DataGrid1.CurrentRowIndex
Me.DataGrid1.Select(currentrow)
End Sub
I return the proper row.. Now ... How do I get the cell data ...
I need the information in cell 1 as a key to my record retreival.

[OUSoonerFan]

Here is an example from my code.

Private Sub MSFlexGridDNC_Click()

If MSFlexGridDNC.ColSel = 0 Then ' If the first column is selected
MaskEdBoxNum.Text = Trim(MSFlexGridDNC.TextMatrix (MSFlexGridDNC.RowSel, MSFlexGridDNC.ColSel)) ' populate the maskeit box with data selected
End If
End Sub

This populates the MaskEdit box with the current cell selected. Only in the first column tho. To get the data from any column then omit the if-then.

Hope this helps.

[Lunatic3]

OUSoonerFan!
Its VB.NET not VB6

refere to this thread
http://www.vbforums.com/showthread.p...hreadid=239434

[gollnick]

Thanks for your response. I tried that code and the first portion where I can get the cell/row but this portion..

MessageBox.Show(DataGrid1(hti.Row, hti.Column))
MessageBox.Show(CType(dgds, DataTable).Table.Columns
(hti.Column).ColumnName)

does not resolve.. On the first line I get error :
Option Strict On disallows implicit conversions from 'System.Object' to 'String'.

does not resolve.. On the second line I get error
'Table' is not a member of 'System.Data.DataTable'.

Private Sub DataGrid1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles DataGrid1.MouseDown
Dim hti As DataGrid.HitTestInfo = DataGrid1.HitTest(e.X, e.Y)
Dim htt As DataGrid.HitTestType = hti.Type
Dim dgds As Object = DataGrid1.DataSource
If htt = DataGrid.HitTestType.ColumnHeader Then
MessageBox.Show(CType(dgds, DataTable).Columns(hti.Column).ColumnName)
ElseIf htt = DataGrid.HitTestType.Cell Then
MessageBox.Show(hti.Row.ToString & ":" & hti.Column.ToString)
MessageBox.Show(DataGrid1(hti.Row, hti.Column))
MessageBox.Show(CType(dgds, DataTable).Table.Columns(hti.Column).ColumnName)
End If

[Lunatic3]

For the first either turn off option explicit or do this

MessageBox.Show(Ctype(DataGrid1(hti.Row, hti.Column),String))

Drop Table from the 2 line of error. Its a cut and paste mistake. It should be

MessageBox.Show(CType(dgds, DataTable).Columns(hti.Column).ColumnName)

And it meant to return the headrtext of datagrid coulmn in case datasource is a datatable.

[gollnick]

Thanks...that works great
But what about the double click event??

[OUSoonerFan]

My bad....Sorry about that...did not even notice it was posted in the VB.net Forum

[Lethal]

Check out mpsmooth's thread. I posted the solution there..

[gollnick]

Still confused... Row selected on double click .. but how do I see the datawith int cells??

Dim dgds As Object = DataGrid1.DataSource.ToString
Dim currentrow As Integer
Dim currentcol As String
currentrow = Me.DataGrid1.CurrentRowIndex
currentcol = Me.DataGrid1.Text
Me.DataGrid1.Select(currentrow)

[Lunatic3]

I posted the answer in mpsmooth's thread.

[gollnick]

I saw and tried that. Could not make it work. I tried putting that logic into where I fill my datagrid but did not have any luck;

Private Sub btnLoadOrders_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoadOrders.Click
BindDataGrid()
FormatGridWithBothTableAndColumnStyles()
btnLoadOrders.Enabled = False
btnFilter.Enabled = True
End Sub

Private Sub BindDataGrid() Static ConnectionString As String = SQL_CONNECTION_STRING
Dim OrdersConnection As New SqlConnection(ConnectionString)
Dim ProductAdapter As New SqlDataAdapter( _
"SELECT OrderID, CustomerID, EmployeeID, OrderDate,RequiredDate,ShippedDate,ShipName FROM Orders", _
OrdersConnection)
ProductAdapter.Fill(OrderData, Order_TABLE_NAME)
DataGrid1.DataSource = OrderData.Tables(Order_TABLE_NAME)
End Sub

[Lunatic3]

You should do that with adding costum GirdColumnStyles to TableStyles and TableStyles to Datagrid to make it work.
I am afraid you cant do it other way cause when the event is not fired you cant do anything about it. At least i dont know anything maybe experts know.

[gollnick]

Oh .. it just gets worse and worse.. Thank you...

[EyeTalion]

can you post the link to mpsmooth's thread?

thanks

[gollnick]

Thanks .. I did .. I copied in the code and tried to modify it but with no luck.. I'm a "visual" learner .. Once I see it work.. I never forget it.... This double click thing should not be this hard...
But .. thanks again

[Lunatic3]

can you post the link to mpsmooth's thread?

mpsmooths thread:
http://www.vbforums.com/showthread.p...hreadid=239691