我使用delphi 6
用到dbcombobox3的items填入醫師、推拿師、櫃台人員
另外用PageControl2元件，在頁次TabSheet9是醫師、TabSheet10是推拿師、TabSheet11是櫃台人員
並在TabSheet9頁面內裡放一個button1、TabSheet10放一個button2、TabSheet11放一個button3
放button是想要測試頁面是否會跟著dbcombobox3的選擇轉換
我想要在dbcombobox3選擇醫師，PageControl2頁面就會跳到TabSheet9的醫師頁次
寫了pagecontrol2.tabindex :=dbcombobox3.ItemIndex ;
目前執行時，在dbcombobox3選擇醫師會跳至TabSheet9的醫師頁次，
卻不是頁次的內容button1出現。
可以請大大給我一個解答，謝謝!!

您好, 不知是不是您的意思

假設 combobox3 只有三個 item, pagecontrol2 也只有三個 tabsheet
且 combobox3 的 item 依序與 pagecontrol2 的 tabsheet 對應,

combobox3 的 onchange 事件中寫 :

pagecontrol2.ActivePageIndex := combobox3.itemindex;

請試試看

又

如果 item 和 tabsheet 數量不同, 但有線性對應關係, 那( for example 9)
pagecontrol2.ActivePageIndex := combobox3.itemindex 9;

如果 item 和 tabsheet 數量不同, 又沒有線性對應關係, 那 用 if 去處理
if combobox3.itemindex = 0 then pagecontrol2.ActivePageIndex := 8
else if combobox3.itemindex = 1 then pagecontrol2.ActivePageIndex := 10
else if combobox3.itemindex = 2 then pagecontrol2.ActivePageIndex := 9;

其他, 請自己想辦法, 應該類似吧...






===================引 用 denise0411 文 章===================
我使用delphi 6
用到dbcombobox3的items填入醫師、推拿師、櫃台人員
另外用PageControl2元件，在頁次TabSheet9是醫師、TabSheet10是推拿師、TabSheet11是櫃台人員
並在TabSheet9頁面內裡放一個button1、TabSheet10放一個button2、TabSheet11放一個button3
放button是想要測試頁面是否會跟著dbcombobox3的選擇轉換
我想要在dbcombobox3選擇醫師，PageControl2頁面就會跳到TabSheet9的醫師頁次
寫了pagecontrol2.tabindex :=dbcombobox3.ItemIndex ;
目前執行時，在dbcombobox3選擇醫師會跳至TabSheet9的醫師頁次，
卻不是頁次的內容button1出現。
可以請大大給我一個解答，謝謝!!
?

------
IS IT WHAT IT IS
我是 李慕白 請倒著唸.
又想把老話拿出來說, 請用台語發音 : 專家專家全是ROBOT CAR (滷肉腳啦);
都已接手這麼久了, 績效還是那麼爛, 講話還那麼大聲.

編輯記錄