devxlogo

Populate a Flexgrid With Desired Columns and Filtered Rows

Populate a Flexgrid With Desired Columns and Filtered Rows

Populate a flexgrid control with specified columns and filtered rows by drawing the control and calling this routine:

 Dim strWhere As StringstrWhere = " WHERE PeopleAddressesID=4502"Call PopulateFlexGrid(Me.MSFGrid, "tblPeopleAddresses", 
strWhere,"PeopleAddressesID", "BuildingName", "City", "State")-------------------------------------------------------------------------------------------------------------------------------------------------------Public Sub PopulateFlexGrid(FlexGridControl As MSFlexGrid,
strTableName AsString, strWHERECriteria As String, ParamArrayColNames()) Dim adoRst As ADODB.Recordset Dim intI As Integer Dim strSQL As String Dim strTab As String Dim adoFld As Field Dim strRow As String '*** Build dynamic SQL *** strSQL = "SELECT * FROM " & strTableName &
strWHERECriteria strTab = Chr(9) 'Tab Set adoRst = New ADODB.Recordset adoRst.Open strSQL, BuildConnectionString(),
adOpenStatic,adLockReadOnly With FlexGridControl .Rows = 2 .Cols = UBound(ColNames) + 2 .FixedCols = 0 .FixedRows = 1 .AllowUserResizing = flexResizeColumns .Row = 0 .Col = 0 '*** Populate Flexgrid heading *** For intI = 0 To UBound(ColNames) For Each adoFld In adoRst.Fields If adoFld.Name = ColNames(intI) Then .Text = adoFld.Name If .Col & strTab Next intI .AddItem strRow strRow = "" 'Initialise adoRst.MoveNext Loop End With adoRst.Close Set adoRst = Nothing Set adoFld = Nothing Set FlexGridControl = Nothing End Sub
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist