精简OptionButtonl四种选择一组代码执行

乐开花36

OptionButton有四种选择，编号：男(12)女(11)混用（10）和全部，选择后，从精据库内提出到当前；如何精简（不想重复相同代码），自已学习编的如下；
If a = 123 Then '下式两个相同，没办法，为了四种选择
                n = n + 1
                brr(n, 1) = n
                brr(n, 2) = arr(i, 3) ' 名子
         ElseIf arr(i, 2) = a Then  '
                n = n + 1
                brr(n, 1) = n
                brr(n, 2) = arr(i, 3) ' 名子
         End If
或许用更好的办法，选择后，一组代码运行；谢谢 查名子.rar (52.2 KB, 下载次数: 8)

2024-3-21 08:39 上传

点击文件名下载附件

tanglf188

If OptionButton2.Value Then a = 12
If OptionButton3.Value Then a = 11
If OptionButton4.Value Then a = 10
If OptionButton5.Value Then a = 123
If OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False Then
     MsgBox "确认性别后，再试！": Exit Sub
End If

乐开花36

tanglf188 发表于 2024-3-21 09:07
If OptionButton2.Value Then a = 12
If OptionButton3.Value Then a = 11
If OptionButton4.Value Then  ...

A=123是随便加了个数字，没办法用OR，选择包括10，11，12和其它；只有设定一个都不属于的数，代码重复一次，，看着都觉多余，一时想不出来办法。

tanglf188

你都赋值了就依据A的值判断
If OptionButton2.Value = False And OptionButton3.Value = False And OptionButton4.Value = False Then
     MsgBox "确认性别后，再试！": Exit Sub
End If
就能改为
If a = 123 Then
     MsgBox "确认性别后，再试！": Exit Sub
End If

乐开花36

tanglf188 发表于 2024-3-21 09:44
你都赋值了就依据A的值判断
If OptionButton2.Value = False And OptionButton3.Value = False And Option ...

我的办法是没办法的办法，四种选择，怎样用一组代码执行就行。

micch

写代码需要精简的不是代码的数量。代码多不一定不好。

建议用一个模块变量，绑定4个控件，控件变化变量自动更新，执行的代码在变量更新时自动执行

乐开花36

micch 发表于 2024-3-21 10:28
写代码需要精简的不是代码的数量。代码多不一定不好。

建议用一个模块变量，绑定4个控件，控件变化变量 ...

同意。年龄大了想不出好办法，帮忙解决一下，谢谢

tdpzby

用二进制的思路：
1. 数据库里面你的12，11，10 重新标记下
12标记为9
11标记为5
10标记为3
空白的标记为1
2. 代码部分
a=-optionbutton1*8 or -optionbutton2*4 or -optionbutton3*2 or -optionbutton5
判断时if  a and arr（i，2）then 一个就可以

tdpzby

tdpzby 发表于 2024-3-21 11:22
用二进制的思路：
1. 数据库里面你的12，11，10 重新标记下
12标记为9

因为 optionbutton 真值默认为-1所以加个负号