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


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

主题：取值问题
帅哥哟，离线，有人找我吗？
lin98
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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


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

1、窗口1beforeclose事件，把窗口1textbox1的值给窗口2的textbox1的值
 回到顶部
帅哥哟，离线，有人找我吗？
lin98
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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


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


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


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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


加好友 发短信
等级：超级版主 帖子：110811 积分：563993 威望：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


加好友 发短信
等级：超级版主 帖子：110811 积分：563993 威望：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


加好友 发短信
等级：六尾狐 帖子：1360 积分：9034 威望：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


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


 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询