以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  复制内容的问题?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68799)

--  作者:zsslly
--  发布时间:2015/5/25 14:15:00
--  复制内容的问题?
复制内容的问题?

我有一个窗口,窗口中有多个表,我想当我的选中table1中的任意一行时,点击“新建任务”控件时弹出“新建任务”窗口,将table1选中行的“客户姓名”“联系电话”“小区地址”“市场部”“设计部”中的内容复制到“新建任务”窗口中对应的texbox中。

跪求指点?
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150525140717.jpg
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2015/5/25 14:17:00
--  
你在控件属性里,把绑定字段设置为 对应的列即可.



--  作者:Bin
--  发布时间:2015/5/25 14:18:00
--  
http://www.foxtable.com/help/topics/0704.htm
--  作者:zsslly
--  发布时间:2015/5/25 14:30:00
--  
这个方法我知道的,我想在“新建任务”窗口中把内容写好,然后把这个窗口中的所有内容复制到table2中对应的列中

我怕这样做就会冲突,不可能同时绑定二个表,我以前弄过的


--  作者:zsslly
--  发布时间:2015/5/25 14:31:00
--  
其实我就是想通过这个窗口把不关联的表A中的内容复制到表B中


--  作者:Bin
--  发布时间:2015/5/25 14:32:00
--  
为当前行赋值即可

tables("表B").current("第一列")=e.form.controls("textbox1").text

--  作者:zsslly
--  发布时间:2015/5/25 14:45:00
--  
谢谢bin老师指点!

当我选中table1中的某行进,先把这个行中的内容复制到“新建任务”窗口中,填写好确认无误后,通过“确认任务”主个控件在table2中新建一行,同时把内容复制进去!放弃任务则不进行新建及复制操作

所以您刚指点的代码是table2中要先有一个空白行


--  作者:大红袍
--  发布时间:2015/5/25 14:47:00
--  

 回复7楼,那你就直接给控件赋值,在确认按钮的时候新增一行。

 

e.form.controls("textbox1").text = Tables("表A").current("第一列")
 
 确认按钮
 
Dim nr = Tables("表B").AddNew
nr("第一列") = e.form.controls("textbox1").text
[此贴子已经被作者于2015/5/25 14:47:37编辑过]

--  作者:zsslly
--  发布时间:2015/5/25 22:38:00
--  
Dim nr = Tables("客户跟踪仿甘特图").AddNew
nr("客户姓名") = e.form.controls("textbox1").text

Dim nrr = Tables("客户跟踪仿甘特图").AddNew
nrr("联系电话") = e.form.controls("textbox2").text

Dim nrrr = Tables("客户跟踪仿甘特图").AddNew
nrrr("小区地址") = e.form.controls("textbox3").text

Dim nrrrr = Tables("客户跟踪仿甘特图").AddNew
nrrrr("市场部") = e.form.controls("textbox4").text

Dim nrrrrr = Tables("客户跟踪仿甘特图").AddNew
nrrrrr("设计师") = e.form.controls("textbox5").text


写错了,新建了五行,怎么新建到一行里面啊?
这么晚了,不知道还有没有大神在!

--  作者:大红袍
--  发布时间:2015/5/25 22:40:00
--  

呃........

 

Dim nr = Tables("客户跟踪仿甘特图").AddNew
nr("客户姓名") = e.form.controls("textbox1").text
nr("联系电话") = e.form.controls("textbox2").text
nr("小区地址") = e.form.controls("textbox3").text
nr("市场部") = e.form.controls("textbox4").text
nr("设计师") = e.form.controls("textbox5").text