以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  窗口保存报错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=185860)

--  作者：lin98 --  发布时间：2023/3/21 18:44:00 --  窗口保存报错 需求   是单击窗口-保存按键--入库主表的保存字段为True，保存按键为不可编辑 问题一：击窗口-保存按键--入库主表的保存字段为True，执行下面代码报错，提示  表达式不生产值 Dim r As Row = Tables("入库主表").Save r("保存") = True DataTables("入库主表").Save() DataTables("入库明细").Save() MessageBox.Show("保存成功!") 问题2：窗口--入库主表的保存字段为True，保存按键为不可编辑，在哪里写代码，

--  作者：有点蓝 --  发布时间：2023/3/21 20:00:00 --   Dim r As Row = Tables("入库主表").current

--  作者：lin98 --  发布时间：2023/3/21 22:18:00 --   问题2：窗口--入库主表的保存字段为True，保存按键为不可编辑， 执行下面代码，无报错，但失效 Dim tb As Table = Tables("入库主表") If tb.Form IsNot Nothing Then     If tb.Current("保存状态") = True Then         tb.Form.Controls("入库登记_保存").Enabled = False     Else         tb.Form.Controls("入库登记_保存").Enabled = True     End If End If

--  作者：有点蓝 --  发布时间：2023/3/21 22:50:00 --   Dim tb As Table = Tables("入库主表")     If tb.Current("保存状态") = True Then         Forms("某某窗口名称").Controls("入库登记_保存").Enabled = False     Else         Forms("某某窗口名称").Controls("入库登记_保存").Enabled = True     End If