以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  预览报表出现异常  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=119566)
--  作者：rgbjwjb
--  发布时间：2018/5/27 19:29:00
--  预览报表出现异常
我设计的EXCEL报表预览后，显示“未找到列[ALL]”,且设置的<订单明细表,4>没有起作用，我也注意了半角的，不知什么原因，请指教，谢谢！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:如皋佳玮.rar
--  作者：有点甜
--  发布时间：2018/5/27 22:11:00
--  
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:订货单.xls
--  作者：rgbjwjb
--  发布时间：2018/5/27 22:35:00
--  

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

 
--  作者：有点甜
--  发布时间：2018/5/27 22:52:00
--  
以下是引用rgbjwjb在2018/5/27 22:35:00的发言：

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

 

 

把<All>写到单元格O2即可，删除原来的<All>
--  作者：rgbjwjb
--  发布时间：2018/5/28 21:04:00
--  

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

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

 
--  作者：有点蓝
--  发布时间：2018/5/28 21:14:00
--  
控件出现重叠：那是停靠和锚定没有设置好

每台电脑的激活码都不一样，上班时间联系客服激活
--  作者：rgbjwjb
--  发布时间：2018/5/30 21:04:00
--  
我复制下面代码，实现打印预览，

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

当再次打开页面设置后，发现刚才的页边距又恢复到初始值了，难道每次打印都要做页面设置？或者有没有方法保存页面设置的相关数据？请指教，谢谢！！
--  作者：有点甜
--  发布时间：2018/5/30 21:47:00
--  

参考

 

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

 
--  作者：rgbjwjb
--  发布时间：2018/5/30 22:58:00
--  

我想用下面的代码实现从表中选定指定列导出为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
--  作者：有点甜
--  发布时间：2018/5/30 23:01:00
--  
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