例子如下:
表單中有三個文字框,分別為:編號,名稱,單價。
需要手動輸入編號後,名稱,單價為自動匹配的
解決方法如下:
、先建立包含 編號 C型,名稱 C型,單價 N型 三個欄位的表,長度根據需要自定,起名:價格表.dbf。
二、將表單中的 編號 對應的文字框改為組合框combo1,名稱、單價對應文字框text1、text2;表單的資料環境中新增 價格表.dbf。
三、設定combo1屬性,rowsource值為:價格表.編號;rowsourcetype值為:6-欄位。
四、設定text1、text2屬性,readonly值為:.T.-真
五、combo1的interactivechange事件程式碼
bh1=thisform.combo1.value &&將combo1所選編號賦值給變數bh1
bh=["]+bh1+["] &&將bh1加定界符,欄位編號是字元型
select 價格表 &&選擇價格表
locate for 編號=&bh &&在價格表中查詢所選擇編號
thisform.text1.value=名稱
thisform.text2.value=單價
六、執行表單,combo1編號選擇完成,text1、text2即顯示該編號對應的名稱、單價。
例子如下:
表單中有三個文字框,分別為:編號,名稱,單價。
需要手動輸入編號後,名稱,單價為自動匹配的
解決方法如下:
、先建立包含 編號 C型,名稱 C型,單價 N型 三個欄位的表,長度根據需要自定,起名:價格表.dbf。
二、將表單中的 編號 對應的文字框改為組合框combo1,名稱、單價對應文字框text1、text2;表單的資料環境中新增 價格表.dbf。
三、設定combo1屬性,rowsource值為:價格表.編號;rowsourcetype值為:6-欄位。
四、設定text1、text2屬性,readonly值為:.T.-真
五、combo1的interactivechange事件程式碼
bh1=thisform.combo1.value &&將combo1所選編號賦值給變數bh1
bh=["]+bh1+["] &&將bh1加定界符,欄位編號是字元型
select 價格表 &&選擇價格表
locate for 編號=&bh &&在價格表中查詢所選擇編號
thisform.text1.value=名稱
thisform.text2.value=單價
六、執行表單,combo1編號選擇完成,text1、text2即顯示該編號對應的名稱、單價。