- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=68924)
-- 发布时间：2015/5/27 15:04:00
-- [求助]
建立了一个如截图的记录窗口，在此窗口输入数据，我想要的结果是如何设置代码，在哪设置代码可完成单击左侧某个人，就只打印出某个人员的完整信息表内容。
此主题相关图片如下：ip6@je67njhnk}9ohlr})xw.png
-- 发布时间：2015/5/27 15:16:00
--
点击节点的时候，控制表里面的定位即可。
比如 Tables("表A").Position = Tables("表A").FindRow("姓名 = \'" & "王五" & "\'")
-- 发布时间：2015/5/27 15:19:00
--
AfterSelectNode 事件
If e.Node.Text <> "显示所有行" Then
Tables("表A").Position = Tables("表A").FindRow("第一列 = \'" & e.Node.Text & "\'")
End If
-- 发布时间：2015/5/27 17:01:00
--
首先谢谢大红袍老师的指导，根据你的提示可以完成指定某个人的信息打印，可能我没表述清楚，我想要的打印样式如截图产妇分娩信息表的样式，每个人的信息集中纵列排序，不是横向排列。这个怎么实现。
-- 发布时间：2015/5/27 17:06:00
--
不明白你说什么，什么打印，打印什么，什么是横向排列。
-- 发布时间：2015/5/27 20:54:00
--
本意指的是如何设置代码可完成单击左侧某个人，就只打印出如：qq截图显示的样式的独立表单。
此主题相关图片如下：qq截图20150527205037.png
-- 发布时间：2015/5/27 20:56:00
--
参考
http://www.foxtable.com/help/topics/2437.htm
http://www.foxtable.com/help/topics/1590.htm
-- 发布时间：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()
-- 发布时间：2015/6/6 12:00:00
--
你试试不就知道了
-- 发布时间：2015/6/7 9:28:00
--
我试了不行，才请老师帮助解答呀