.程序集 窗口程序集1
.子程序 _按鈕1_被單擊
加空記錄 ()
寫 (#賬號, 組合框1.內容)
寫 (#密碼, 到數值 (編輯框1.內容))
組合框1.內容 ＝ “”
編輯框1.內容 ＝ “”
.子程序 __啟動窗口_創建完畢
打開 (取運行目錄 () ＋ “\1.edb”, , , , , , )
到首記錄 ()
.判斷循環首 (尾記錄後 () ＝ 假)
組合框1.加入項目 (讀 (“賬號”), )
跳過 ()
.判斷循環尾 ()
這上面的代碼都沒錯。錯的是下面的代碼。
.
.子程序 _組合框1_列表項被選擇
跳到 (組合框1.現行選中項 ＋ 1)
編輯框1.內容 ＝ 讀 (“密碼”) ，錯的是這句：編輯框1.內容 ＝ 讀 (“密碼”)
妳把它改成：
編輯框1.內容 ＝ “”
編輯框1.加入文本 (到文本 (讀 (#密碼)))
另外妳要把賬號字段設置文本型，不然會出錯提示數據類型不匹配。
這樣就可以了。