我修改了源代碼，重新上傳的，37樓那個才是，你下載那個運行，不要管原來那個。源代碼在壓縮包中有，但沒給你mytools.prg工具庫，所以直接執行源代碼是運行不了的，編譯過的.app可以。

[ 本帖最后由 TonyDeng 于 2014-1-9 13:51 编辑 ]

你祇要參考我這裏的源代碼即可，針對原來沒法解決的問題，看是怎麽解決的，然後把方法用到你那個程序中，就可以了。照搬是不行的。

一、药品只能点击才被选上；
二、数量方框回车处置单没看到。

用法：在Text1中輸入拼音，下面的列表框會自動高亮對應藥品（若查找不到藥品是不會高亮的），點擊那個藥品（其實祇要看到就可以點，直接滾動列表框也可以），處方清單表格中就會追加那個藥品，自動把光標定位到數量欄等待輸入數量，按回車離開時，若數量爲零，會刪除掉，光標跳回Text1處。

首字母查找，改爲篩選首字母相符的藥品較好。

[ 本帖最后由 TonyDeng 于 2014-1-9 14:03 编辑 ]

1.同一拼音開頭的藥品可能有多個（這也是你用拼音碼替代藥品編碼的缺陷，有些藥品拼音碼可能重複，但唯一性編碼絕對不會重複），不應該自動替你選，首字母查找祇是把開頭的一對藥品找出來，幫助記憶和查找而已，不必把編碼輸入齊全的，點擊即可。
2.處置單你自己做，臨時處方表數據就在那裏，怎麽用是你的事，現在給你程序不是把整個都做了，祇是解決你提出的那兩個問題。

[ 本帖最后由 TonyDeng 于 2014-1-9 14:05 编辑 ]

多谢了，先研究研究。

USE 药品表 ORDER 拼音码 IN 0
  USE 临时处方表 IN 0
为什么都放在0工作区。不是说一个工作区只能放一个表吗？

看懂了那代碼，你所想的都能實現，關鍵在思路，要把它移植到可視化編程中是很容易的。那代碼其實教了你很多東西，啃不下就沒辦法了。

0工作區是讓vfp自動選擇空閑工作區，我們不必知道具體是哪個區，它替你選擇，我們祇要用別名即可。

上班去了，你自己先琢磨一下，集中了問題一起問，我深夜才回來。

[ 本帖最后由 TonyDeng 于 2014-1-9 14:16 编辑 ]

受教了。