读取数据库的表并绑定到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 =  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