多个命令按钮按条件显示的问题，请各位大大帮忙！

xxiaoxin321

请各位大大帮忙！

窗体111中各命令按钮编号对应表1中的各个编号。
要实现如下的效果：
当打开窗体111时，各个命令按钮按照每个编号对应的状态显示：
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("状态", "表1", "编号='" & ctl.Caption & "'")
   
7.             If ctl.Caption = "已卖" Then
   
8.                 ctl.Enabled = False
   
9.             End If
   
10.         End If
    
11.     Next
    
12. End Sub
    

复制代码

bbpst

{:soso_e179:}3、空闲的，按钮名字不变，按钮可用；_____这个没实现

Henry D. Sy

bbpst 发表于 2011-11-29 08:47
3、空闲的，按钮名字不变，按钮可用；_____这个没实现

哦，谢谢提醒！
没注意第三点。还以为跟第二一样！
修正一下：

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("状态", "表1", "编号='" & 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
    

复制代码

siaele

学习一下.高手随处见

bbpst

{:soso__17229500676227045215_1:}

wgh3g

路过学习

xxiaoxin321

谢谢斑竹和大家的热心帮助，问题已经解决！{:soso_e179:}

xxiaoxin321

还要麻烦各位高手，如果我需要在窗体111上点击按钮，就打开对应编号的表1窗体，应该怎么办？如果每个按钮都编辑的话，太浪费时间了！

Henry D. Sy

xxiaoxin321 发表于 2011-11-30 14:30
还要麻烦各位高手，如果我需要在窗体111上点击按钮，就打开对应编号的表1窗体，应该怎么办？如果每个按钮都 ...

具体如何对应？