Mini Kabibi Habibi

Imports Microsoft.VisualBasic
Imports System


Namespace GridDemo
	Partial Public Class Grouping
		Inherits GridDemoModule
		Public Sub New()
			InitializeComponent()
			GroupByCountryThenCity()
		End Sub
		Private Sub viewsListBox_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Xpf.Editors.EditValueChangedEventArgs)
		End Sub
  Private Sub GroupByCountryThenCity()
			grid.ClearGrouping()
   grid.GroupBy("Country")
   grid.GroupBy("City")
  End Sub

  Private Sub GroupByCountryThenCityThenOrderDate()
			grid.ClearGrouping()
			grid.GroupBy("Country")
			grid.GroupBy("City")
			grid.GroupBy("OrderDate")
  End Sub

  Private Sub GroupByCityThenOrderDate()
			grid.ClearGrouping()
			grid.GroupBy("City")
			grid.GroupBy("OrderDate")
  End Sub
		Private Sub ClearGrouping()
			grid.ClearGrouping()
		End Sub
		Private Sub groupList_SelectionChanged(ByVal sender As Object, ByVal e As DevExpress.Xpf.Editors.EditValueChangedEventArgs)
   If grid Is Nothing Then
	   Return
   End If
   Select Case groupList.SelectedIndex
	Case 0
		GroupByCountryThenCity()
	Case 1
		GroupByCountryThenCityThenOrderDate()
	Case 2
		GroupByCityThenOrderDate()
				Case 3
					ClearGrouping()
   End Select
		End Sub
	End Class
End Namespace