主题：逻辑型值的 引用

逻辑型值的 引用，现在想根据科目编码引用科目表的选择，使用下列代码出错，'''''''''''''''''简码往来编码调用
Dim dr1 As String =e.Form.Controls("DropBox1").value     ''''''''''科目编码值
If dr1 Is Nothing Then
    e.Form.Controls("CheckBox1").Boolean = Nothing
    e.Form.Controls("CheckBox2").Boolean = Nothing
    e.Form.Controls("CheckBox3").Boolean = Nothing
    e.Form.Controls("CheckBox4").Boolean = Nothing
    e.Form.Controls("CheckBox5").Boolean = Nothing
    e.Form.Controls("CheckBox6").Boolean = Nothing
    e.Form.Controls("CheckBox7").Boolean = Nothing
    e.Form.Controls("CheckBox8").Boolean = Nothing
    e.Form.Controls("CheckBox9").Boolean = Nothing
    e.Form.Controls("CheckBox10").Boolean = Nothing
Else
    Dim fdr As DataRow = DataTables("科目").find("科目编码='" & e.Form.Controls("DropBox1").value & "'")
    If fdr IsNot Nothing
        e.Form.Controls("CheckBox1").Boolean = fdr("货物")
        e.Form.Controls("CheckBox2").Boolean = fdr("数量")
        e.Form.Controls("CheckBox3").Boolean = fdr("部门")
        e.Form.Controls("CheckBox4").Boolean = fdr("客户")
        e.Form.Controls("CheckBox5").Boolean = fdr("供应商")
        e.Form.Controls("CheckBox6").Boolean = fdr("个人")
        e.Form.Controls("CheckBox7").Boolean = fdr("现金流")
        e.Form.Controls("CheckBox8").Boolean = fdr("项目")
        e.Form.Controls("CheckBox9").Boolean = fdr("外币")
        e.Form.Controls("CheckBox10").Boolean = fdr("停用")
    End If
End If
'''''''''''''''''简码往来编码调用
此主题相关图片如下：qq截图20210816114352.png

If dr1 Is Nothing Then
    e.Form.Controls("CheckBox1").checked=false

多谢