请教：练习 e.Write Book 命令未见报表产生。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在学习到本页地址：http://www.foxtable.com/mobilehelp/scr/0151.htm 未产生相关报表。

'主档语句 -------- 生成Excel格式订单

With wb.AddButtonGroup("form1","btg2",False)

.add("btn4","生成Excel 格式订单","button","po_order.xls?oid=" & pr("po_id"))

End With

''子程序语句 --------函数名称：po_Create XLS 生成Excel格式订单

Dim e As RequestEventArgs = args(0)

Dim oid As String

If e.Get Values.Contains Key("oid") Then

oid = e.Get Values("oid")

msgbox("订单号:" & oid) ’显示有收到订单号码

Else

Return ""

End If

Dim Book As New X LS.Book(Pro ject Path & "Attach ments\po_purchase.xls")

Dim fl As String = ProjectPath & "Reports\po_purchase.xls"

msgbox("FL:" & fl) ‘这里显示：c:\jy-app\reports\po_purchase.xls , 我确定这里有文件：po_purchase.xls文件存在

book.AddData Table("采购主档","jyapp","Sel ect * fr om {poOrderMaster} where po_id= '" & oid & "'") '添加父表

book.AddData Table("采购明细","jyapp","Sel ect *,po_isl * po_idj As po_ijr from {poOrderLine} where po_id= '" & oid & "'") '添加子表

book.Add Relation("采购主档","po_id","采购明细","po_id") '建立关联

e.Write Book(book,"采购订单" & oid & ".xls",True) ’这个参数我true,false 已经变化过。

测试环境：Google Chrome，版本 62.0.3202.75（正式版本）（64 位）

测试结果是：桌面一片空白，什么也没有，c:\jy-app\reports\ 没有多出任何文件。（未见："采购订单" & oid & ".xls" 相关文件）

请教专家看看，我什么地方出错了？

在本例中，没有看到什么地方使用 fl 变量

谢谢你！

[此贴子已经被作者于2017/11/11 23:25:00编辑过]

主题：请教：练习 e.Write Book 命令未见报表产生。