读取数据库的表并绑定到Listview

$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 = 0 To $ilvDetailColumnCount - 1

        _GUICtrlListView_DeleteColumn($hListview, 0)

    Next



    For $i = 0 To $iCols - 1

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

    Next



    Local $iResultRowIndex = $iCols

    For $i = 0 To $iRows - 1

        $iResultRowIndex += 1

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

        For $j = 1 To $iCols - 1

            $iResultRowIndex += 1

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



            ;If $i = 0 Then

                If $aResult[$iResultRowIndex] = "" Then

                    _GUICtrlListView_SetColumnWidth($hListview, $j, 0)

                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(-1, $sQueryString, $aResult, $iRows, $iCols)

     _SQLite_Close()



    If $iRval = $SQLITE_OK Then

        Return $aResult

    EndIf



    Return ""

    ;_SQLite_Shutdown()

EndFunc