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


  共有3311人关注过本帖树形打印复制链接

主题:[求助]

美女呀,离线,留言给我吧!
hch
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1170 威望:0 精华:0 注册:2012/9/12 15:30:00
[求助]  发帖心情 Post By:2015/5/27 15:04:00 [只看该作者]

建立了一个如截图的记录窗口,在此窗口输入数据,我想要的结果是如何设置代码,在哪设置代码可完成单击左侧某个人,就只打印出某个人员的完整信息表内容。
图片点击可在新窗口打开查看此主题相关图片如下:ip6@je67njhnk}9ohlr})xw.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/27 15:16:00 [只看该作者]

 点击节点的时候,控制表里面的定位即可。

 

 比如 Tables("表A").Position = Tables("表A").FindRow("姓名 = '" & "王五" & "'")


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/27 15:19:00 [只看该作者]

AfterSelectNode 事件

 

If e.Node.Text <> "显示所有行" Then
    Tables("表A").Position = Tables("表A").FindRow("第一列 = '" & e.Node.Text & "'")
End If


 回到顶部
美女呀,离线,留言给我吧!
hch
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1170 威望:0 精华:0 注册:2012/9/12 15:30:00
  发帖心情 Post By:2015/5/27 17:01:00 [只看该作者]

首先谢谢大红袍老师的指导,根据你的提示可以完成指定某个人的信息打印,可能我没表述清楚,我想要的打印样式如截图产妇分娩信息表的样式,每个人的信息集中纵列排序,不是横向排列。这个怎么实现。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/27 17:06:00 [只看该作者]

 不明白你说什么,什么打印,打印什么,什么是横向排列。

 回到顶部
美女呀,离线,留言给我吧!
hch
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1170 威望:0 精华:0 注册:2012/9/12 15:30:00
  发帖心情 Post By:2015/5/27 20:54:00 [只看该作者]

本意指的是如何设置代码可完成单击左侧某个人,就只打印出如:qq截图显示的样式的独立表单。
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20150527205037.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/5/27 20:56:00 [只看该作者]


 回到顶部
美女呀,离线,留言给我吧!
hch
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1170 威望:0 精华:0 注册:2012/9/12 15:30:00
  发帖心情 Post By:2015/6/6 11:59:00 [只看该作者]

请教一下,我根据以下代码,在窗体中添加一个标准按钮,名称为打印按钮,在该按钮的 Click 事件里写入以下代码,能否实现打印出如6楼截图样式显示的表内容。此段代码是否有问题,如有请给指正,给出正确代码,在那个事件下写入,谢谢。

Dim grp As WinForm.RecordGrid = e.Form.Controls("RecordGrid1")
Dim doc As PrintDoc = e.Form.GernatePrintDoc(grp)
doc.Preview()

 回到顶部
帅哥哟,离线,有人找我吗?
sloyy
  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2015/6/6 12:00:00 [只看该作者]

你试试不就知道了

 回到顶部
美女呀,离线,留言给我吧!
hch
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:110 积分:1170 威望:0 精华:0 注册:2012/9/12 15:30:00
  发帖心情 Post By:2015/6/7 9:28:00 [只看该作者]

我试了不行,才请老师帮助解答呀

 回到顶部
总数 14 1 2 下一页