Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口保存报错


  共有1823人关注过本帖树形打印复制链接

主题：窗口保存报错
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1096 积分：7235 威望：0 精华：0 注册：2020/11/4 22:15:00 		窗口保存报错  发帖心情 Post By：2023/3/21 18:44:00 [只看该作者]

需求   是单击窗口-保存按键--入库主表的保存字段为True，保存按键为不可编辑
问题一：击窗口-保存按键--入库主表的保存字段为True，执行下面代码报错，提示  表达式不生产值

Dim r As Row = Tables("入库主表").Save
r("保存") = True
DataTables("入库主表").Save()
DataTables("入库明细").Save()
MessageBox.Show("保存成功!")


问题2：窗口--入库主表的保存字段为True，保存按键为不可编辑，在哪里写代码，
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/3/21 20:00:00 [只看该作者]

Dim r As Row = Tables("入库主表").current

 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1096 积分：7235 威望：0 精华：0 注册：2020/11/4 22:15:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107014 积分：544295 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询