Foxtable(狐表)用户栏目专家坐堂 → [求助]取关联表数具


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

主题:[求助]取关联表数具

帅哥哟,离线,有人找我吗?
barryliu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
[求助]取关联表数具  发帖心情 Post By:2008/9/27 18:13:00 [显示全部帖子]

麻烦各位老师:

文章套打中,如何提取关联表中的数具,如下第三行的:车1,公式不对呀.


Dim rp As New RtfPrinter("D:\xuexie\tts\pcd.rtf")
rp.DataRow = Tables("业务录入").Current.DataRow '套打订单表的选定行.
rp.Replace("{车1}", Tables("业务录入.送货数量").Rows(0)("车牌"))
rp.Preview()


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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/27 18:25:00 [显示全部帖子]

不可以呢,报错

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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/27 18:27:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:片段_4.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/28 8:10:00 [显示全部帖子]

是我没看明白帮助,提取当前行列明应用[],替换的标签应用{},我是全部用了[]而引起假死机,也根本替换不了数具.
谢谢老六!


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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/28 8:39:00 [显示全部帖子]

继续请教代码:

如关联数具值为空值,则套打值为空,否则为关联列值,如下代码报错,请指教:

Dim rp As New RtfPrinter("D:\xuexie\tts\pcd.rtf")
rp.DataRow = Tables("业务录入").Current.DataRow '套打订单表的选定行.
rp.Replace("{Today}", Date.Today)
If Tables("业务录入.送货数量").Rows(1)("车牌") Is Nothing Then
rp.Replace("{车2}", "")
Else
rp.Replace("{车2}", Tables("业务录入.送货数量").Rows(1)("车牌"))
End If
rp.Preview()

[此贴子已经被作者于2008-9-28 8:51:45编辑过]

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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/28 8:55:00 [显示全部帖子]

呵,刚看到了帮助,已更改,感谢老六!

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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/28 17:29:00 [显示全部帖子]

各位老师:

查了帮助一编,还是不知如何设置是否存在关联行的代码.
还请指点一下.


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


加好友 发短信
等级:婴狐 帖子:48 积分:360 威望:0 精华:0 注册:2008/9/1 8:08:00
  发帖心情 Post By:2008/9/29 14:26:00 [显示全部帖子]

非常感谢!


 回到顶部