以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  vars变量问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118876)

--  作者:nxqtxwz
--  发布时间:2018/5/12 19:16:00
--  vars变量问题

我在窗口中设了二个控件,绑定一个表。两控件一个是COMBOBX1,另一个COMBOBX2COMBOBX2的值是通过代码把COMBOBX1+日期自动赋给的。然后COMBOBX2与VARS变量AA绑定在打印EXCEL报表时打印出AA的值。

1、原来窗口绑定的是副表,一切正常。在打印时AA的值能够正常打印。

2、现在将窗口绑定为SQLTABLE表,COMBOBX2的值是正常的,能写入主表的对应列,但打印EXCEL报表时怎么也打不出内容。

请问各位老师,这是为什么?COMBOBX2与VARS变量绑定,应该与绑定表没有关系啊。请问能不能直接通过代码将COMBOBX2的值赋给AA呢?请各位老师帮帮忙,本人水平低做不了。谢谢了。


--  作者:有点甜
--  发布时间:2018/5/13 10:49:00
--  
上传一个具体例子提供测试说明你的问题。
--  作者:nxqtxwz
--  发布时间:2018/5/13 11:32:00
--  

在“物品采购”-打印采购审批表窗口中,我又把COMBOBX2改成了LABEL4,怎么让LABEL4的值传递到报表中打印。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:开发(试验).zip

[此贴子已经被作者于2018/5/13 12:02:45编辑过]

--  作者:有点甜
--  发布时间:2018/5/13 11:49:00
--  

1、贴出开发者密码;

 

2、说明是哪个模板,怎么操作以后,得到怎样的效果。


--  作者:nxqtxwz
--  发布时间:2018/5/13 12:05:00
--  

密码:333

四个模板都可以

想把VARS变量AAAAA的值写到EXCEL报表中的指定位置。

请老师给看看别的方面有什么问题。


--  作者:nxqtxwz
--  发布时间:2018/5/13 14:30:00
--  
以下是引用有点甜在2018/5/13 11:49:00的发言:

1、贴出开发者密码;

 

2、说明是哪个模板,怎么操作以后,得到怎样的效果。

老师好,请问我的问题能解决吗?

 


--  作者:有点甜
--  发布时间:2018/5/13 15:01:00
--  
密码错误,请贴出正确密码。
--  作者:nxqtxwz
--  发布时间:2018/5/13 15:13:00
--  
老师,请您重新下一下,我又重新上传了,密码是333.
--  作者:nxqtxwz
--  发布时间:2018/5/13 15:45:00
--  
以下是引用nxqtxwz在2018/5/13 11:32:00的发言:

在“物品采购”-打印采购审批表窗口中,我又把COMBOBX2改成了LABEL4,怎么让LABEL4的值传递到报表中打印。
 下载信息  [文件大小:1.3 MB  下载次数:2]
图片点击可在新窗口打开查看点击浏览该文件:开发(试验).zip

[此贴子已经被作者于2018/5/13 12:02:45编辑过]

老师,密码333,请指教。

我试了多次,手动输入的值是可以的,但通过代码赋给的值不行。但我最早绑定到副表试好的,不知为什么现在不行了。

另外请老师给看看,打印按钮的Click事件中,最后有两行代码:

Tables("物品申报").DataTable.ReplaceFor("采购表名称",e.form.controls("TextBox1").text,Tables("打印审批表_Table1").Filter)

Tables("物品申报").DataTable.ReplaceFor("采购申报表打印",True,Tables("打印审批表_Table1").Filter)

这两行代码是想把绑定表打印审批表_Table1中“采购申报表打印”列已选定的记录写入主表物品申报中,但实际情况是把绑定表中没有选中要打印的(绑定表中采购申报表打印列没有勾选)记录也写入了。请问代码怎么改呢?

[此贴子已经被作者于2018/5/13 16:49:16编辑过]

--  作者:有点甜
--  发布时间:2018/5/13 17:43:00
--  

1、Vars("aaaaa") = e.form.controls("ComboBox1").Text & Date.Today

 

2、

 

DataTables("打印审批表_Table1").ReplaceFor("采购表名称",e.form.controls("label4").text,Tables("打印审批表_Table1").Filter)
DataTables("打印审批表_Table1").ReplaceFor("采购申报表打印",True,Tables("打印审批表_Table1").Filter)