以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教,逻辑值代入问题!  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149029)

--  作者:狐表(小白)
--  发布时间:2020/4/21 18:38:00
--  请教,逻辑值代入问题!
代码如下,“门型花”和“门头花”两列为逻辑列,代入值时提示如图!怎么更改?注释红色区域的代码就不会报错!

图片点击可在新窗口打开查看此主题相关图片如下:20200421164626.png
图片点击可在新窗口打开查看

Select_Name="TableControl_591"
Dim f As new foxtools.form("SL_通用选择")
f.mytext="木门下单选择"
f.showdialog \'模式窗口
Dim r As Row=Foxtools.Tools.Rows(eform)
If Select_List.count>0 Then
    r("产品编号")=Select_List(0)("产品编号")
    r("门型花")=Select_List(0)("门型花")
    r("门头花")=Select_List(0)("门头花")
Else
    If vars("Select_Null")=True  Then \'清除
        r("产品名称") = Nothing
        r("客户")=Nothing
        vars("Select_Null")=False
    End If
End If
[此贴子已经被作者于2020/4/21 18:39:10编辑过]

--  作者:有点蓝
--  发布时间:2020/4/21 20:13:00
--  
贴出出错函数完整代码