Dim strSQL As String Dim strVerFlag As Integer Dim strPrtFlag As Integer Dim strExpFlag As Integer On Error GoTo SQLFilterHdlr Select Case UCase(Trim(cmbPrint.Text)) Case "UNPRINTED": strPrtFlag = 0 Case "PRINTED": strPrtFlag = 1 Case Else: strPrtFlag = 2 End Select Select Case UCase(Trim(cmbVerifikasi.Text)) Case "UNVERIFIED": strVerFlag = 0 Case "VERIFIED": strVerFlag = 1 Case Else: strVerFlag = 2 End Select Select Case UCase(Trim(cmbExport.Text)) Case "UNEXPORTED": strExpFlag = 0 Case "EXPORTED": strExpFlag = 1 Case Else: strExpFlag = 2 End Select strSQL = "SELECT * FROM datBC WHERE " If strPrtFlag < 2 Then strSQL = strSQL & "PrintFlag=" & CStr(strPrtFlag) & " AND " End If If strVerFlag < 2 Then strSQL = strSQL & "VerFlag=" & CStr(strVerFlag) & " AND " End If If strExpFlag < 2 Then strSQL = strSQL & "ExpFlag=" & CStr(strExpFlag) & " AND " End If strSQL = strSQL & "TglByr BETWEEN #" & Format(DTPicker1.Value, "MM/DD/YYYY") & "# AND #" & Format(DTPicker2.Value, "MM/DD/YYYY") & "# " strSQL = strSQL & "ORDER BY " & sKategori & " " & sSort
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)