以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  【求助】依赖于窗口sql表的独立窗口控件如何实现值的绑定  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=147476)

--  作者:chen_sheng
--  发布时间:2020/3/17 19:53:00
--  【求助】依赖于窗口sql表的独立窗口控件如何实现值的绑定
【求助】依赖于窗口sql表的独立窗口控件如何实现值的绑定

想要实现的效果见下图  


图片点击可在新窗口打开查看此主题相关图片如下:窗口表如何绑定独立窗口的控件值.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/3/17 20:54:00
--  
窗口sql表设置好,然后打开这个窗口。

独立窗口(员工信息)进入设计界面,就可以选择之前打开的窗口的sql表了

--  作者:chen_sheng
--  发布时间:2020/3/17 21:11:00
--  
窗口sql表是动态生成的  

无法在设计的时间进行选择  

求这种方式的狐表正确处理方式 谢谢!

[此贴子已经被作者于2020/3/17 21:11:50编辑过]

--  作者:有点蓝
--  发布时间:2020/3/17 21:21:00
--  
那就只能使用代码绑定:http://www.foxtable.com/webhelp/topics/1860.htm
--  作者:chen_sheng
--  发布时间:2020/3/17 21:30:00
--  
感谢蓝版这么晚还这么及时的指导!

能提供一个论坛有的实例文件么  按照这样绑定出现如下went

1.新增行时绑定数据没有清空
2.存在个别时间新增数据保存不到的情况

窗口 AfterLoad

e.Form.Controls("Label9").BindingField    = "横向开单二级_table1.编号"
e.Form.Controls("TextBox2").BindingField = "横向开单二级_table1.稽核事项"
e.Form.Controls("TextBox4").BindingField = "横向开单二级_table1.创建人"
e.Form.Controls("TextBox5").BindingField = "横向开单二级_table1.处理结果"
e.Form.Controls("TextBox6").BindingField = "横向开单二级_table1.问题描述"

文本控件TextChanged 
e.Sender.WriteValue()

新增按钮事件
Tables("横向开单二级_table1").Current.Save()
Tables("横向开单二级_table1").AddNew()
[此贴子已经被作者于2020/3/17 21:34:38编辑过]

--  作者:有点蓝
--  发布时间:2020/3/17 21:36:00
--  
去掉TextChanged 代码

新增按钮事件
Tables("横向开单二级_table1").FinishEditing
Tables("横向开单二级_table1").Save()
dim r as row =Tables("横向开单二级_table1").AddNew()
Tables("横向开单二级_table1").Position = r.index

--  作者:chen_sheng
--  发布时间:2020/3/17 21:53:00
--  
新增后还是保留了之前记录  是不是没有绑定主键导致的呢


图片点击可在新窗口打开查看此主题相关图片如下:新增后还是之前记录.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2020/3/17 21:57:00
--  
窗口sql表是动态生成的  ,绑定的代码放到生成sql表之后。而不是afterload
--  作者:chen_sheng
--  发布时间:2020/3/17 22:04:00
--  
员工信息窗口没有表  上面只有控件

这个窗口打开即执行上一级窗口表的绑定事件   应该是可以的呢

经过测试发现 窗口表没有数据是没有问题的  假如有数据打开的窗口就会带数据
[此贴子已经被作者于2020/3/17 22:14:50编辑过]

--  作者:有点蓝
--  发布时间:2020/3/17 22:15:00
--  
做个例子发上来测试一下