Foxtable(狐表)用户栏目专家坐堂 → 取值问题


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

主题:取值问题

帅哥哟,离线,有人找我吗?
lin98
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1132 积分:7476 威望:0 精华:0 注册:2020/11/4 22:15:00
取值问题  发帖心情 Post By:2024/5/26 23:40:00 [只看该作者]

问题一:需求:窗口1的TextBox1的值不为空时,关闭窗口1后,赋值给窗口2的TextBox1的值.如何实现?
问题二: 窗口1的表A和表B是模拟关联,如何按键实现,刚编辑,录入的表A和表B进行保存后,为不可编辑?
[此贴子已经被作者于2024/5/27 0:21:33编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107580 积分:547197 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/27 8:38:00 [只看该作者]

1、窗口1beforeclose事件,把窗口1textbox1的值给窗口2的textbox1的值


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


加好友 发短信
等级:五尾狐 帖子:1132 积分:7476 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/5/27 10:08:00 [只看该作者]

问题二: 窗口1的表A和表B是模拟关联,如何按键实现,刚编辑,录入的表A和表B进行保存后,为不可编辑?
这个是禁止全表不灵活,

想改:窗口1的表A增加一个选中字段,
需求:如果表A的选中字段,为未选中,窗口1的表A和表B的行可编辑,如果表A的选中字段,为选中,窗口1的表A和表B的行就不可编辑,如何实现?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107580 积分:547197 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/27 10:19:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1132 积分:7476 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/5/27 10:23:00 [只看该作者]

问题一:需求:窗口1的TextBox1的值不为空时,关闭窗口1后,赋值给窗口2的TextBox1的值.如何实现?
Forms("窗口1").Controls("TextBox1").text = Forms("窗口2").Controls("TextBox14").text

报错提示:("窗口1")已关闭,不能调用"窗口2的TextBox14,如何处理?

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1132 积分:7476 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/5/27 10:31:00 [只看该作者]

需求:如果表A的选中字段,为未选中,窗口1的表A和表B的行可编辑,如果表A的选中字段,为选中,窗口1的表A和表B的行就不可编辑,如何实现?
If e.Row("选中") = 1 Then
    e.Cancel = True '
End If

上面代码写在表A只在 表A有,对模拟关联的表B无效,如何让表B的关联行有效?

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107580 积分:547197 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/27 10:45:00 [只看该作者]

以下是引用lin98在2024/5/27 10:23:00的发言:
问题一:需求:窗口1的TextBox1的值不为空时,关闭窗口1后,赋值给窗口2的TextBox1的值.如何实现?
Forms("窗口1").Controls("TextBox1").text = Forms("窗口2").Controls("TextBox14").text

报错提示:("窗口1")已关闭,不能调用"窗口2的TextBox14,如何处理?

窗口1beforeclose事件
if Forms("窗口2").opened then
Forms("窗口2").Controls("TextBox14").text = Forms("窗口1").Controls("TextBox1").text 
end if

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107580 积分:547197 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/27 10:48:00 [只看该作者]

以下是引用lin98在2024/5/27 10:31:00的发言:
需求:如果表A的选中字段,为未选中,窗口1的表A和表B的行可编辑,如果表A的选中字段,为选中,窗口1的表A和表B的行就不可编辑,如何实现?
If e.Row("选中") = 1 Then
    e.Cancel = True '
End If

上面代码写在表A只在 表A有,对模拟关联的表B无效,如何让表B的关联行有效?

表A的prepareedit事件

If e.Row("选中") = true Then
    e.Cancel = True '
End If

表B的prepareedit事件
dim r as row =tables("表A").current
If r("选中") = true Then
    e.Cancel = True '
End If

 回到顶部
帅哥哟,离线,有人找我吗?
lin98
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1132 积分:7476 威望:0 精华:0 注册:2020/11/4 22:15:00
  发帖心情 Post By:2024/5/27 16:15:00 [只看该作者]

表A的prepareedit事件

If e.Row("选中") = true Then
    e.Cancel = True '
End If
上面代码,对表的限制有效,对表的字段绑定窗口的控件限制无效,比如文本框,如何解决?
表B的prepareedit事件
dim r as row =tables("表A").current
If r("选中") = true Then
    e.Cancel = True '
End If
这代码也限制无效,如何解决?


 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107580 积分:547197 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/5/27 16:18:00 [只看该作者]


 回到顶部
总数 12 1 2 下一页