.....
.....
......
Dim $Get_List
$Get_List=Read($TableName, $fileld,_GUICtrlListView_GetNextItem($ListView1));<----讀取位置的行數
MsgBox(0,"",$Get_List)
Func Read($TableName, $fileld ,$cc)
Dim $Time=1
_GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
_SQLite_Open($SQLite_Data_Path)
_SQLite_Query(-1, "SELECT * FROM " & $TableName & " ORDER BY " & $fileld & " DESC;", $hQuery)
Local $rowData
While _SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK;<----搜尋位置行數
If $Time=$cc Then ExitLoop;<----找到就跳出回圈
$Time += 1
WEnd
_SQLite_Close()
Return $aRoW[0];<----回傳參數
EndFunc
這是我目前的做法,如果有更好的方法請告知~~ |