[求助]打印 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]打印

共有5110人关注过本帖树形打印复制链接主题：[求助]打印

大红袍

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/16 22:13:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:打印.table

大红袍

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 9:40:00 [显示全部帖子]

不明白你想表达什么，截图说明

大红袍

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 9:41:00 [显示全部帖子]

Forms("窗口2").Controls("Table1").Table.DataSource = Forms("打印管理").Controls("Table1").Table.DataTable

大红袍

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 10:46:00 [显示全部帖子]

Forms("窗口2").open()
Forms("窗口2").visible = False
Vars("报表名") = "报表名"
Vars("标题左") = "标题左"

Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckListBox1")
Dim t2 As Table = Forms("窗口2").Controls("Table1").Table
Dim t1 As Table = Forms("打印管理").Controls("Table1").Table
t2.DataSource = t1.DataTable

t2.filter = t1.filter
t2.SetColVisibleWidth(t1.getColVisibleWidth)

Dim doc As PrintDoc = Forms("窗口2").GernatePrintDoc()
doc.PageSetting.Landscape = IIF(Forms("打印管理").Controls("ComboBox1").Text = "横向",True,False)
doc.Preview

大红袍

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/17 14:52:00 [显示全部帖子]

Dim clist As WinForm.CheckedListBox = e.Form.Controls("CheckListBox1")

For i As Integer = clist.Items.Count - 1 To 0 Step -1

e.Form.Controls("Table1").Table.Cols(clist.items(i)).Visible = clist.GetItemChecked(i)

大红袍

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/18 11:19:00 [显示全部帖子]

选择不同的页面，CheckListBox1的combolist修改成不同的值啊。

大红袍

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/18 11:50:00 [显示全部帖子]

统计什么？说清楚

大红袍

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/2/18 12:37:00 [显示全部帖子]

SelectedIndexChanged 事件

Select Case e.Sender.name
    Case "入库"
        Vars("str4") = "Table1"
    Case "出库"
        Vars("str4") = "Table2"
End Select
Dim dst As Table = Tables("打印管理_" & Vars("str4"))
Dim pl4 As WinForm.Panel = e.Form.Controls("Panel1")
If dst.DataTable.datarows.count > 0 Then
    pl4.Visible = not pl4.Visible
    Dim clb As WinForm.CheckedListBox = e.Form.Controls("CheckListBox1")
    clb.Items.Clear
    Dim i As Integer
    For Each dc As DataCol In dst.DataTable.DataCols
        clb.Items.Add(dc.name)
        clb.SetItemChecked(i, True)
        i += 1
    Next
End If

下一主题 >> << 上一主题

总数 19 上一页 1 2

主题：[求助]打印