多個(gè)命令按鈕按條件顯示的問題，請(qǐng)各位大大幫忙！

xxiaoxin321

請(qǐng)各位大大幫忙！

窗體111中各命令按鈕編號(hào)對(duì)應(yīng)表1中的各個(gè)編號(hào)。
要實(shí)現(xiàn)如下的效果：
當(dāng)打開窗體111時(shí)，各個(gè)命令按鈕按照每個(gè)編號(hào)對(duì)應(yīng)的狀態(tài)顯示：
1、已賣的，按鈕名字變成“已賣”，并且按鈕不可用；
2、定金的，按鈕名字變成“定金”，按鈕可用；
3、空閑的，按鈕名字不變，按鈕可用；

Henry D. Sy

1. Private Sub Form_Load()
   
2.     Dim ctl As Control
   
3.     On Error Resume Next
   
4.     For Each ctl In Me.Controls
   
5.         If TypeOf ctl Is CommandButton Then
   
6.             ctl.Caption = DLookup("狀態(tài)", "表1", "編號(hào)='" & ctl.Caption & "'")
   
7.             If ctl.Caption = "已賣" Then
   
8.                 ctl.Enabled = False
   
9.             End If
   
10.         End If
    
11.     Next
    
12. End Sub
    

復(fù)制代碼

bbpst

{:soso_e179:}3、空閑的，按鈕名字不變，按鈕可用；_____這個(gè)沒實(shí)現(xiàn)

Henry D. Sy

bbpst 發(fā)表于 2011-11-29 08:47
3、空閑的，按鈕名字不變，按鈕可用；_____這個(gè)沒實(shí)現(xiàn)

哦，謝謝提醒！
沒注意第三點(diǎn)。還以為跟第二一樣！
修正一下：

1. Private Sub Form_Load()
   
2.     Dim ctl As Control
   
3.     Dim strName As String
   
4.     On Error Resume Next
   
5.     For Each ctl In Me.Controls
   
6.         If TypeOf ctl Is CommandButton Then
   
7.             strName = DLookup("狀態(tài)", "表1", "編號(hào)='" & ctl.Caption & "'")
   
8.             If strName = "已賣" Then
   
9.                 ctl.Caption = strName
   
10.                 ctl.Enabled = False
    
11.             ElseIf strName = "定金" Then
    
12.                 ctl.Caption = strName
    
13.             End If
    
14.         End If
    
15.     Next
    
16. End Sub
    

復(fù)制代碼

siaele

學(xué)習(xí)一下.高手隨處見

bbpst

{:soso__17229500676227045215_1:}

wgh3g

路過學(xué)習(xí)

xxiaoxin321

謝謝斑竹和大家的熱心幫助，問題已經(jīng)解決！{:soso_e179:}

xxiaoxin321

還要麻煩各位高手，如果我需要在窗體111上點(diǎn)擊按鈕，就打開對(duì)應(yīng)編號(hào)的表1窗體，應(yīng)該怎么辦？如果每個(gè)按鈕都編輯的話，太浪費(fèi)時(shí)間了！

Henry D. Sy

xxiaoxin321 發(fā)表于 2011-11-30 14:30
還要麻煩各位高手，如果我需要在窗體111上點(diǎn)擊按鈕，就打開對(duì)應(yīng)編號(hào)的表1窗體，應(yīng)該怎么辦？如果每個(gè)按鈕都 ...

具體如何對(duì)應(yīng)？