求助为什么以读出的日期出现空行 [以解决]

lllangxx

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
#include <SQLite.au3>
#include <SQLite.dll.au3>
#include <GUIListBox.au3>
#include <DateTimeConstants.au3>
#include <GuiListView.au3>

Opt("GUIOnEventMode", 1)
Opt("TrayIconHide", 1)
Opt("GUICloseOnESC", 0)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, 192, 114)

GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")

$Button1 = GUICtrlCreateButton("test", 472, 400, 121, 25, $WS_GROUP) ;write
GUICtrlSetOnEvent(-1, "Button1Click")

$Button2 = GUICtrlCreateButton("read", 20, 400, 121, 25, $WS_GROUP)  ;read
GUICtrlSetOnEvent(-1, "Button2Click")

$ListView1 = GUICtrlCreateListView("", 16, 8, 601, 385)             ;Listview
         _GUICtrlListView_SetExtendedListViewStyle($ListView1 ,BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES)) ;ListView样式
         _GUICtrlListView_AddColumn($ListView1, "test", 50, 0)
         _GUICtrlListView_AddColumn($ListView1, "test", 60, 1)
         _GUICtrlListView_AddColumn($ListView1, "test", 120, 1)
                 _GUICtrlListView_AddColumn($ListView1, "test", 180, 1)
                 _GUICtrlListView_AddColumn($ListView1, "test", 240, 1)
;-------------------------------------
                 _GUICtrlListView_AddItem($ListView1, "test",0)
             _GUICtrlListView_AddSubItem($ListView1, 0, "test1", 1, 1)
             _GUICtrlListView_AddSubItem($ListView1, 0, "test2", 2, 2)
GUICtrlSetOnEvent(-1, "ListView1Click")


$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 9)

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

Global $hquery, $aRow, $sqlit_ok, $ListView1,$date,$dates1,$dates2,$da

$date1 = GUICtrlCreateDate("", 200, 400, 100, 20,$DTS_SHORTDATEFORMAT)  ;日历






$title = "SQLIT测式"
$Sqlit_path = "test.db"
_SQLite_Startup() ;加载Sqlit.dll

if Not FileExists($Sqlit_path) Then
        SQLCreate()
EndIf
 
While 1
        Sleep(100)
WEnd


Func SQLCreate()
     _SQLite_Open($Sqlit_path)
         _SQLite_Exec(-1,"Create Table If NOT Exists Audit(id integer primary key autoincrement,dates Text,datess Test,datesss Test);")
         _SQLite_Close()
 EndFunc

Func SQLwrite()
         $date=GUICtrlRead($date1)
         $dates1 = $date
         $dates2 = $date
        _SQLite_Open($Sqlit_path)
        _SQLite_Exec(-1,"insert into Audit (dates,datess,datesss) values ('"& $date &"','"& $dates1 &"','"& $dates2 &"');")
                MsgBox(4096, "write", "insert into Audit (dates,datess,datesss) values ('"& $date &"','"& $dates1 &"','"& $dates2 &"');", 5)
        _SQLite_Close()
EndFunc

Func SQLread()
        
                                
                                
     _GUICtrlListView_DeleteAllItems(GUICtrlGetHandle($ListView1))
         _SQLite_Open($Sqlit_path)
         _SQLite_Query(-1,"SELECT * FROM Audit  ORDER BY id ASC;", $hquery)
         While _SQLite_FetchData($hquery, $aRow) = $SQLITE_OK
                 _GUICtrlListView_AddItem($ListView1, $aRow[0],0)
                 ;_GUICtrlListView_AddSubItem($ListView1, 0, "Row 0: Col 0", 0)
             ;_GUICtrlListView_AddSubItem($ListView1, 0, "Row 2: Col 2", 1)
             ;_GUICtrlListView_AddSubItem($ListView1, 0, "Row 3: Col 3", 2)
                 _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_FindInText($ListView1, $aRow[0]), $aRow[1], 1)
                 _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_FindInText($ListView1, $aRow[0]), $aRow[2], 2)
                 _GUICtrlListView_AddSubItem($ListView1, _GUICtrlListView_FindInText($ListView1, $aRow[0]), $aRow[3], 3)
                 ;MsgBox(4096, "read", GUICtrlRead($aRow[0]), 1)
         WEnd
         _SQLite_Close()
EndFunc

Func Button1Click()
     SQLwrite()
         SQLread()
        ;MsgBox(4096, "Button1Click", "write", 2)
EndFunc

Func Button2Click()
        
 
         SQLread()

                                
        ;MsgBox(4096, "Button2Click", "read", 2)
 EndFunc
 
Func Form1Close()
exit
EndFunc

Func Form1Restore()

EndFunc

Func ListView1Click()
                ;MsgBox(4096, "ListView1Click", "test", 1)
EndFunc
 

lllangxx

呵呵   已解决