$aResultEventlog = _GetQueryTable($strSQL_Compare_FailRecordEventIDs, $iRowsEventlog, $iColsEventlog)

_BindDataToListview($aResultEventlog, $iRowsEventlog, $iColsEventlog, $lvEventlog)

Func _BindDataToListview($aResult, $iRows, $iCols, $hListview)

    _GUICtrlListView_DeleteAllItems($hListview)

    Dim $ilvDetailColumnCount = _GUICtrlListView_GetColumnCount ( $hListview )

    For $i =  To $ilvDetailColumnCount -

        _GUICtrlListView_DeleteColumn($hListview, )

    Next

    For $i =  To $iCols -

        _GUICtrlListView_InsertColumn($hListview, $i, $aResult[$i + ])

    Next

    Local $iResultRowIndex = $iCols

    For $i =  To $iRows -

        $iResultRowIndex +=

        _GUICtrlListView_AddItem($hListview, $aResult[$iResultRowIndex])

        For $j =  To $iCols -

            $iResultRowIndex +=

            _GUICtrlListView_AddSubItem($hListview, $i, $aResult[$iResultRowIndex], $j)

            ;If $i =  Then

                If $aResult[$iResultRowIndex] = "" Then

                    _GUICtrlListView_SetColumnWidth($hListview, $j, )

                Else

                    _GUICtrlListView_SetColumnWidth($hListview, $j, $LVSCW_AUTOSIZE)

                EndIf

            ;EndIf

        Next

    Next

EndFunc

Func _GetQueryTable($sQueryString, ByRef $iRows, ByRef $iCols)

    Local $iRval, $aResult

    _SQLite_Open($SQLite_Data_Path)

     $iRval = _SQLite_GetTable(-, $sQueryString, $aResult, $iRows, $iCols)

     _SQLite_Close()

    If $iRval = $SQLITE_OK Then

        Return $aResult

    EndIf

    Return ""

    ;_SQLite_Shutdown()

EndFunc