代码如下,“门型花”和“门头花”两列为逻辑列,代入值时提示如图!怎么更改?注释红色区域的代码就不会报错!
此主题相关图片如下: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编辑过]