以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何引用动态数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28829)

--  作者:hrw68529
--  发布时间:2013/2/20 8:47:00
--  [求助]如何引用动态数据
说明:1、县区、单位名称、已登记人数都是引用《基础数据表》中的数据
      2、《信息表》中的《已登记人数》如果该单位是首次登记,就引用《基础数据表》中的初始已登记人数,如果该单位已进行过登记,哪么以后该单位又一次出现时,《信息表》中的‘已登记人数’就引用‘截止目前已登记人数’中该单位的数据。以上内容如何设置和写代码,请赐教。谢谢
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:引用加载数据.table


--  作者:lin_hailun
--  发布时间:2013/2/20 9:03:00
--  
 如下例子,代码写在 表属性->事件->datacolchanged

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:引用加载数据.table



--  作者:blackzhu
--  发布时间:2013/2/20 9:26:00
--  
你这个有个问题  如果信息表是 多次输入的话 怎么找? 找同条件的最后一条数据吗?
--  作者:lin_hailun
--  发布时间:2013/2/20 9:30:00
--  
以下是引用blackzhu在2013-2-20 9:26:00的发言:
你这个有个问题  如果信息表是 多次输入的话 怎么找? 找同条件的最后一条数据吗?


楼主这个应该是想做流水的。应该是根据添加的先后顺序。

--  作者:hrw68529
--  发布时间:2013/2/20 14:41:00
--  
谢谢,又解决了我的一个问题,我的系统基本做的差不多了,请你共享下边如何做成自己的系统,我正在努力,请看图片

图片点击可在新窗口打开查看此主题相关图片如下:截图03.png
图片点击可在新窗口打开查看


--  作者:hrw68529
--  发布时间:2013/2/20 15:10:00
--  
如图:如何实现EXCEL报表打印,也就是说,我制作了一个excep模板,如何把它连接到下图,一点击就能打印所选的报表,另处,系统中生成的表,能直接打印吗,表格线是灰的,能否变成黑色的
图片点击可在新窗口打开查看此主题相关图片如下:报表打印.png
图片点击可在新窗口打开查看

--  作者:lin_hailun
--  发布时间:2013/2/20 15:43:00
--  
 你先把excel报表一章看完吧。

http://www.foxtable.com/help/topics/1145.htm

--  作者:hrw68529
--  发布时间:2013/2/21 8:50:00
--  
我想让下边的一段代码中的选择日期时段,如何更改,如将: " Sheet(3,9).Value = "<日期 = # " & Date.Today & "#>"  \'写入打印条件 "更改为时间段,2013-01至2013-03,
代码:
Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls"\'打开模板
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Dim 
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet
(3,9).Value = "<日期 = # " & Date.Today & "#>"  \'写入打印条件
Book.Build() 
\'生成报表
Book.Save(fl) 

Dim 
Proc As New Process 
Proc.File = fl
Proc.Start()

--  作者:lin_hailun
--  发布时间:2013/2/21 9:00:00
--  

Dim d_start As String = "2013/1/1"
Dim d_end As String = "2013/3/31"

Dim Book As New XLS.Book(ProjectPath & "Attachments\\订单.xls") \'打开模板
Dim fl As String = ProjectPath & "Reports\\订单.xls"
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<日期 >= #" & d_start & "# And 日期 <= #" & d_end & "#>"  \'写入打印条件
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
Proc.Start()

--  作者:hrw68529
--  发布时间:2013/2/21 9:07:00
--  
这个时间段如果是动态选择呢,怎么写代码,也就是说,要有一个输入框,自己定义时间段呢,