以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  取值问题  (http://foxtable.net/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