Dim ds As New DataSetDim dv As DataViewds = GetDataFromDatabase()Dim dvManager As New DataViewManager(ds)dv = dvManager.CreateDataView(ds.Tables(0))GridControl1.DataSource = dv
Dim dtRecords As DataTable = dv.ToTableIf Not (IsNothing(GridView1.ActiveFilterCriteria)) Then Dim filteredDataView As New DataView(dtRecords) filteredDataView.RowFilter = DevExpress.Data.Filtering.CriteriaToWhereClauseHelper.GetDataSetWhere(GridView1.ActiveFilterCriteria) dtRecords = filteredDataView.ToTable End If