Thread ID: |
Created: |
Updated: |
Platform: |
Replies: |
143334 | Mar 14,2019 01:09 PM UTC | Mar 18,2019 12:36 PM UTC | WinForms | 3 |
![]() |
Tags: PivotGridControl |
Form1.vb
Public Sub New()
InitializeComponent()
InitializePivotGrid()
AddHandler Me.pivotGridControl1.TableModel.QueryCellInfo, AddressOf TableModel_QueryCellInfo
AddHandler Me.pivotGridControl1.TableControl.HyperlinkCellClick, AddressOf TableControl_HyperlinkCellClick
End Sub
Private Sub TableModel_QueryCellInfo(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.Grid.GridQueryCellInfoEventArgs)
If e.RowIndex > Me.pivotGridControl1.PivotColumns.Count + (If(Me.pivotGridControl1.PivotCalculations.Count > 1, 1, 0)) AndAlso e.ColIndex > Me.pivotGridControl1.PivotRows.Count AndAlso e.Style.CellValue IsNot Nothing Then
e.Style.CellType = If(Me.checkBox1.Checked, "HyperlinkCell", "TextBox")
e.Style.Tag = Nothing
End If
End Sub
Private Sub TableControl_HyperlinkCellClick(ByVal sender As Object, ByVal e As Syncfusion.Windows.Forms.PivotAnalysis.HyperlinkCellClickEventArgs)
If Me.checkBox1.Checked Then
Dim cellInfo As PivotCellInfo = Me.pivotGridControl1.PivotEngine(e.PivotCellInfo.RowIndex - 1, e.PivotCellInfo.ColumnIndex - 1)
Dim styeInfo As GridStyleInfo = Me.pivotGridControl1.TableModel(e.PivotCellInfo.RowIndex, e.PivotCellInfo.ColumnIndex)
Dim row As String = "Row index " & e.PivotCellInfo.RowIndex
Dim column As String = "Column index " & e.PivotCellInfo.ColumnIndex
Dim cellValue As String = "Cell value " & cellInfo.FormattedText
MessageBox.Show(row & vbCrLf & column & vbCrLf & cellValue)
End If
End Sub
|
Recommended approach – exe will perform automatic configuration
Please find the patch setup here:
Advanced approach – use only if you have specific needs and can directly replace existing assemblies for your build environment
Please find the patch assemblies alone from:
Please find the Nugets from the below location:
|
This post will be permanently deleted. Are you sure you want to continue?
Sorry, An error occured while processing your request. Please try again later.
This page will automatically be redirected to the sign-in page in 10 seconds.