主题：预览报表出现异常

我设计的EXCEL报表预览后，显示“未找到列[ALL]”,且设置的<订单明细表,4>没有起作用，我也注意了半角的，不知什么原因，请指教，谢谢！！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如皋佳玮.rar

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:订货单.xls

下载后打不开，请帮重新设置发给我一下，或麻烦你指出我在哪里设置错了，谢谢！！

 

 

把<All>写到单元格O2即可，删除原来的<All>

我原先在笔记本上开发的，发布后到台式机上运行，控件出现重叠，有的发生错位，请问怎么解决？谢谢！！

另外，我在台式机上下载了开发版，输入原先的激活码后，怎么点击都没反应，无奈又回到笔记本上，也出现同样的问题，请帮忙解决，谢谢！

 

控件出现重叠：那是停靠和锚定没有设置好

我复制下面代码，实现打印预览，

Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()

当再次打开页面设置后，发现刚才的页边距又恢复到初始值了，难道每次打印都要做页面设置？或者有没有方法保存页面设置的相关数据？请指教，谢谢！！

参考

 

http://www.foxtable.com/webhelp/scr/1602.htm

 

我想用下面的代码实现从表中选定指定列导出为Eexel表，并将“订单编号”作为导出的默认excel表名，前者能够实现，后面指定表名没有反应，请指教，谢谢！！

Dim lsc As WinForm.CheckedListBox = e.Form.Controls("Lst")
Dim dlg As new savefiledialog
dlg.filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
Dim ex As new Exporter
ex.Format ="excel"
ex.SourceTableName = "订单明细表"
ex.FilePath = dlg.FileName
ex.NewTableName ="'" & Tables("订单主表").current("订单编号") & "'"
ex.Filter ="订单编号 = '" & Tables("订单主表").current("订单编号") & "'"
ex.Fields = lsc.Value
ex.Export
End If
e.Form.Close

Dim lsc As WinForm.CheckedListBox = e.Form.Controls("Lst")
Dim dlg As new savefiledialog
dlg.FileName =  Tables("订单主表").current("订单编号")
dlg.filter = "Excel文件|*.xls"
If dlg.ShowDialog = DialogResult.OK Then
    Dim ex As new Exporter
    ex.Format ="excel"
    ex.SourceTableName = "订单明细表"
    ex.FilePath = dlg.FileName
    ex.NewTableName = Tables("订单主表").current("订单编号")
    ex.Filter ="订单编号 = '" & Tables("订单主表").current("订单编号") & "'"
    ex.Fields = lsc.Value
    ex.Export
End If
e.Form.Close