专家坐堂-逻辑型值的引用Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  逻辑型值的引用  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171057)

--  作者：zhuxinhui
--  发布时间：2021/8/16 11:51:00
--  逻辑型值的引用
逻辑型值的引用，现在想根据科目编码引用科目表的选择，使用下列代码出错，\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'\'简码往来编码调用
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

--  作者：有点蓝
--  发布时间：2021/8/16 13:44:00
--
If dr1 Is Nothing Then
    e.Form.Controls("CheckBox1").checked=false
……
Dim fdr As DataRow = DataTables("科目").find("科目编码=\'" & e.Form.Controls("DropBox1").value & "\'")
    If fdr IsNot Nothing
        e.Form.Controls("CheckBox1").checked = fdr("货物")

--  作者：zhuxinhui
--  发布时间：2021/8/17 15:51:00
--
多谢