MainWindow.xaml.vb

Imports System.Windows
Imports DevExpress.Xpf.PivotGrid
Imports System

Namespace UnboundFieldExample
	Partial Public Class MainWindow
		Inherits Window

		Private dataTable As New DataSet1.OrderDetailsDataTable()
		Private dataAdapter As New DataSet1TableAdapters.OrderDetailsTableAdapter()

		Public Sub New()
			InitializeComponent()
			pivotGridControl1.DataSource = dataTable
		End Sub

		Private Sub Window_Loaded(ByVal sender As Object, ByVal e As RoutedEventArgs)
			dataAdapter.Fill(dataTable)
		End Sub

		Private Sub pivotGridControl1_CustomUnboundFieldData(ByVal sender As Object, ByVal e As PivotCustomFieldDataEventArgs)
			If e.Field Is fieldTotalSum Then
				Dim unitPrice As Decimal = Convert.ToDecimal(e.GetListSourceColumnValue("UnitPrice"))
				Dim qty As Integer = Convert.ToInt32(e.GetListSourceColumnValue("Quantity"))
				Dim discount As Decimal = Convert.ToDecimal(e.GetListSourceColumnValue("Discount"))
				e.Value = unitPrice * qty * (1 - discount)
			End If
		End Sub

		Private Sub PivotGridControl1_CustomCellValue(ByVal sender As Object, ByVal e As PivotCellValueEventArgs)
			If e.DataField Is fieldDiscount AndAlso e.RowValueType = FieldValueType.GrandTotal Then
				e.Value = String.Empty
			End If
		End Sub
	End Class
End Namespace