看~我這麼低調

畫面設計

按鈕"放大"程式

Sub object1053()
NextForm "Form1056" "跳到下一個form"
End Sub

新加入的from


設定變數，然後在把原來的副程式搬過來。

Sub Form1056_After()

Dim i as Integer
Dim int_rec_no as Integer
Dim int_read as Integer
Dim str_DAYYEAR as String
Dim str_highblood as String
Dim str_lowblood as String
Dim str_heart as String
Dim str_key as String

int_rec_no=DbGetNoRecs(my_db)

List1058.Clear 清空list1058
int_read=DbReset(my_db) 讀出my_db內的資料
For i=1 to int_rec_no
int_read=DbReadNext(my_db,str_key,str_DAYYEAR,str_highblood,str_lowblood,str_heart)
List1058.Add
str(i)+")"+str_DAYYEAR+"<=>["+str_highblood+"/"+str_lowblood+"]<=>["+str_heart+"]"
Next

當迴圈一開始讀出第一筆資料即字串變數中的內容
再將字串內容放在list1058中列出
處理下一筆直到所有資料都列完

End Sub