|
AddHandler Me.sfDataGrid.CellDoubleClick, AddressOf sfDataGrid_CellDoubleClick
Private Sub sfDataGrid_CellDoubleClick(ByVal sender As Object, ByVal e As Syncfusion.WinForms.DataGrid.Events.CellClickEventArgs)
Dim form = New Form2()
form.textBox1.Text = (TryCast(e.DataRow.RowData, OrderInfo)).OrderID.ToString()
form.textBox2.Text = (TryCast(e.DataRow.RowData, OrderInfo)).CustomerID
form.ShowDialog()
End Sub |
|
Private Sub sfDataGrid_CellDoubleClick(ByVal sender As Object, ByVal e As Syncfusion.WinForms.DataGrid.Events.CellClickEventArgs)
If e.DataRow IsNot Nothing AndAlso e.DataRow.RowData IsNot Nothing Then
Dim form = New Form2()
form.textBox1.Text = (TryCast(e.DataRow.RowData, DataRowView)).Row.ItemArray(0).ToString()
form.textBox2.Text = (TryCast(e.DataRow.RowData, DataRowView)).Row.ItemArray(1).ToString()
form.ShowDialog()
End If
End Sub |