关于选项组的更新问题

roych

在选项组里设置标签，如图所示：

然后再在frame的更改后事件写入：

1. Private Sub Frame2_AfterUpdate()
   
2.     Dim lbl As Control
   
3.     For Each lbl In Me.Form.Controls
   
4.         If lbl.ControlType = acCheckBox Then
   
5.             If lbl.OptionValue = Me.Frame2.Value Then
   
6.                 Text11 = lbl.Tag
   
7.             End If
   
8.         End If
   
9.     Next
   
10. End Sub

复制代码

具体请参考附件

说句题外话，其实最佳的做法应该改为组合框，简单粗暴。