Question

我在from上的每一帧中都使用了4个选项按钮。同样聪明的我在表单上占用了10帧..现在我只想存储MSaccess数据库中每个帧的那些选项按钮的值。所以数据库中的结果将是每帧的10个选项按钮值。请帮帮我

Answer 1

假设您的问题实际上是“如何在组中获取所选选项按钮”，那么您需要依次检查每个选项。最简单的是：

'Get the selected option from frame 1
If Frame1Option1.Value Then
  Value1 = 1
ElseIf Frame1Option2.Value Then
  Value1 = 2
ElseIf Frame1Option3.Value Then
  Value1 = 3
ElseIf Frame1Option4.Value Then
  Value1 = 4
End If

'Get the selected option from frame 2
If Frame2Option1.Value Then
  Value2 = 1
ElseIf Frame2Option2.Value Then
  Value2 = 2
ElseIf Frame2Option3.Value Then
  Value2 = 3
ElseIf Frame2Option4.Value Then
  Value2 = 4
End If

如果在每个帧中将它们设为控制数组，则可以将代码简化为：

Dim Index As Long

'Get the selected option from frame 1
For Index = Frame1Options.LBound To Frame1Options.UBound
  If Frame1Options(Index).Value Then Value1 = Index
Next

然后设置它们就变得如此简单：

Frame1Options(Value1).Value = True

从VB中的帧中选择选项按钮

1 个答案: