通过关联另一复选框以编程方式设置复选框可见性的实现问题

我来分享一个完全匹配需求的实现方案，先理清楚核心逻辑，再贴出修正后的代码并拆解关键细节：

需求说明 #

我们要实现的功能逻辑是：

• 当数据表中以'm'为前缀、与MyCheckBox控件名称对应的字段值为true时，显示表单上的该MyCheckBox控件；
• 若对应字段的值为DBNull，则隐藏这个控件；
• 需要遍历表单的所有控件，遇到容器类控件（比如Panel、GroupBox）时，递归遍历它的子控件，确保不遗漏嵌套的目标控件；
• 这些带'm'前缀的控制字段的值，由另一个表单的复选框设置，以此间接控制目标表单复选框的显示状态。

代码实现 #

Private Function Display_To_Screen(ByVal DS As DataSet, ByVal Table As String, ByVal Row As String, ByVal ParentControl As Control) As Boolean
    Dim mFieldName As String
    Dim fieldValue As Object
    Dim ctl As Control
    Try
        For Each ctl In ParentControl.Controls
            If TypeOf ctl Is MyCheckBox Then
                mFieldName = Get_mFieldName(ctl)
                ' 从DataSet的指定表和行中获取对应控制字段的值
                fieldValue = DS.Tables(Table).Rows(Row)(mFieldName)
                ' 判断字段值：为空则隐藏，值为True则显示
                If IsDBNull(fieldValue) Then
                    ctl.Visible = False
                Else
                    ctl.Visible = CBool(fieldValue)
                End If
            ElseIf ctl.Controls.Count > 0 Then
                ' 容器控件递归遍历子控件
                Display_To_Screen(DS, Table, Row, ctl)
            End If
        Next ctl
    Catch ex As Exception
        ' 可根据需求添加异常日志或用户提示
        Return False
    End Try
    Return True
End Function

Public Function Get_mFieldName(ByVal ctl As Control) As String
    ' 将控件名称（假设前缀为3个字符，如chkXXX）转换为带'm'前缀的字段名
    Get_mFieldName = "m" & Right(ctl.Name, Len(ctl.Name) - 3)
End Function

关键逻辑拆解 #

• 递归控件遍历：Display_To_Screen函数从传入的父控件开始，逐个检查子控件。如果是MyCheckBox就处理显示状态，如果是容器控件，就递归调用自身处理容器内的子控件，确保所有嵌套的MyCheckBox都被处理；
• 字段名映射：Get_mFieldName函数负责把MyCheckBox的名称转换成对应的数据表字段名——比如控件名为chkEmail，去掉前3个字符（"chk"）后得到"Email"，加上前缀'm'就变成mEmail，正好对应数据表中的控制字段；
• 修正原代码问题：原代码存在逻辑错误——直接判断生成的字段名字符串是否为DBNull，这是不合理的。我补充了从DataSet中获取字段实际值的逻辑，再通过IsDBNull判断是否为空，同时根据字段布尔值设置控件可见性，确保功能符合需求。

内容的提问来源于stack exchange，提问作者mabees