Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共12 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

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

1楼
barryliu 发表于: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()

2楼
贺老六 发表于:2008/9/27 18:19:00
没看出问题了。
在命令窗口单独测试:

output.show(Tables("业务录入.送货数量").Rows(0)("车牌"))

看看正常否。
3楼
barryliu 发表于:2008/9/27 18:25:00
不可以呢,报错
4楼
barryliu 发表于:2008/9/27 18:27:00

图片点击可在新窗口打开查看此主题相关图片如下:片段_4.jpg
图片点击可在新窗口打开查看
5楼
贺老六 发表于:2008/9/27 18:37:00

那就很简单了,当前行在送货数量表根本就没有对应的行。

6楼
barryliu 发表于:2008/9/28 8:10:00

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

7楼
barryliu 发表于: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编辑过]
8楼
贺老六 发表于:2008/9/28 8:42:00
1、判断是否为空:
Tables("业务录入.送货数量").Rows(1).IsNull("车牌")

2、最好还判断一下是否存在关联行,以避免关联行不存在的时候报错。
9楼
barryliu 发表于:2008/9/28 8:55:00
呵,刚看到了帮助,已更改,感谢老六!
10楼
barryliu 发表于:2008/9/28 17:29:00

各位老师:

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

共12 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.