| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 关于打印数据 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=109989) |
| -- 作者：裴保民 -- 发布时间：2017/11/24 9:09:00 -- 关于打印数据 在窗体中筛选过符合条件并指定要打印的列呢？ |
| -- 作者：有点甜 -- 发布时间：2017/11/24 10:13:00 -- 对表格进行筛选 http://www.foxtable.com/webhelp/scr/1058.htm
对表格显示列进行操作 http://www.foxtable.com/webhelp/scr/1775.htm
|
| -- 作者：裴保民 -- 发布时间：2017/12/6 9:05:00 -- 我打印窗体表的时候发现本来表中的数据是筛选过的数据怎么打印的时候是数据库中所有的数据呢？怎么打印窗体表中的数据呢？ [此贴子已经被作者于2017/12/6 9:06:00编辑过]
|
| -- 作者：有点甜 -- 发布时间：2017/12/6 9:40:00 -- 以下是引用裴保民在2017/12/6 9:05:00的发言：
我打印窗体表的时候发现本来表中的数据是筛选过的数据怎么打印的时候是数据库中所有的数据呢？怎么打印窗体表中的数据呢？ [此贴子已经被作者于2017/12/6 9:06:00编辑过]
你通过何种形式打印数据？截图具体说明你的问题。 |
| -- 作者：裴保民 -- 发布时间：2017/12/6 16:12:00 -- 打印的代码 Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox") Dim s As String For Each c As Col In Tables("流量卡资料").cols s=s &"|"& c.Name Next lieming.ComboList=s e.form.Controls("Table1").Table.DataSource =DataTables("流量卡资料") e.form.controls("Table1").Table.Filter = Tables("流量卡资料").Filter 提醒窗体表的数据是最近10天即将到期的数据，可是已打印就是所有的数据 |
| -- 作者：有点甜 -- 发布时间：2017/12/6 16:48:00 -- 贴出你的打印代码。 |
| -- 作者：裴保民 -- 发布时间：2017/12/6 19:24:00 -- Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox") Dim t As Table = Tables("流量卡资料") Dim str As String = t.getColVisibleWidth If lieming.value > "" Then For Each c As Col In t.Cols c.visible = False Next For Each s As String In lieming.value.split(",") t.cols(s).visible = True Next End If e.Form.baseForm.hide e.Form.Close Tables("流量卡资料").Print(True, False) t.SetColVisibleWidth(str) |
| -- 作者：有点甜 -- 发布时间：2017/12/6 20:40:00 -- 代码这样写
Dim lieming As WinForm.CheckedListBox = e.Form.Controls("lieCheckedListBox") |
| -- 作者：裴保民 -- 发布时间：2017/12/6 20:49:00 -- 我的程序是这样执行的加载提醒窗体后将符合条件的数据显示在提醒窗体上，当单击打印按钮后弹出一个打印设置窗体（此窗体有一个窗体表是副表，加载的是提醒窗体表的数据，来调整打印裂的宽度，）怎么调后不管用呢？ |
| -- 作者：有点甜 -- 发布时间：2017/12/6 20:58:00 -- 8楼代码肯定没问题。如果有问题，做个小例子发上来看看。 |