以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  取值问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192054)
--  作者：lin98
--  发布时间：2024/5/26 23:40:00
--  取值问题
问题一：需求：窗口1的TextBox1的值不为空时，关闭窗口1后，赋值给窗口2的TextBox1的值.如何实现？
问题二: 窗口1的表A和表B是模拟关联，如何按键实现，刚编辑，录入的表A和表B进行保存后，为不可编辑？
[此贴子已经被作者于2024/5/27 0:21:33编辑过]
--  作者：有点蓝
--  发布时间：2024/5/27 8:38:00
--  
1、窗口1beforeclose事件，把窗口1textbox1的值给窗口2的textbox1的值
--  作者：lin98
--  发布时间：2024/5/27 10:08:00
--  
问题二: 窗口1的表A和表B是模拟关联，如何按键实现，刚编辑，录入的表A和表B进行保存后，为不可编辑？
这个是禁止全表不灵活，

想改：窗口1的表A增加一个选中字段，
需求：如果表A的选中字段，为未选中，窗口1的表A和表B的行可编辑，如果表A的选中字段，为选中，窗口1的表A和表B的行就不可编辑，如何实现？
--  作者：有点蓝
--  发布时间：2024/5/27 10:19:00
--  
类似：http://www.foxtable.com/webhelp/topics/2254.htm
--  作者：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，如何处理？
--  作者：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的关联行有效？
--  作者：有点蓝
--  发布时间：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
--  作者：有点蓝
--  发布时间：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
--  发布时间：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
这代码也限制无效，如何解决？
--  作者：有点蓝
--  发布时间：2024/5/27 16:18:00
--  
参考：http://www.foxtable.com/webhelp/topics/2342.htm