Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Private Function lst_ProductClassDiscountsOrderBy(col As String) As Integer Dim strSQL As String strSQL = "SELECT SELECT int_ProductClassPlantID, str_ProductClass, int_PlantID, Discount1, Discount2" strSQL = strSQL & "FROM tbl_ProductClassDiscounts " strSQL = strSQL & "ORDER BY " & col Me!lst_ProductClassDiscounts.RowSource = strSQL Me!lst_ProductClassDiscounts.Requery End Function Private Sub cmd_OrderByProductClass_Click() Dim response As Integer response = lst_ProductClassDiscountsOrderBy("str_ProductClass") End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.