Foxtable(狐表) → 用户栏目 → 专家坐堂 → 预览报表出现异常


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

主题：预览报表出现异常
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		预览报表出现异常  发帖心情 Post By：2018/5/27 19:29:00 [显示全部帖子]

我设计的EXCEL报表预览后，显示“未找到列[ALL]”,且设置的<订单明细表,4>没有起作用，我也注意了半角的，不知什么原因，请指教，谢谢！！
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:如皋佳玮.rar
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/5/27 22:35:00 [显示全部帖子]

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/5/28 21:04:00 [显示全部帖子]

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

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

 
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/5/30 21:04:00 [显示全部帖子]

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

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

当再次打开页面设置后，发现刚才的页边距又恢复到初始值了，难道每次打印都要做页面设置？或者有没有方法保存页面设置的相关数据？请指教，谢谢！！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/5/31 20:25:00 [显示全部帖子]

设计“页面设置”窗体是不是也要设置一个数据表？包括：方向、宽度、高度、左边距、右边距、上边距、下边距这些字段，然后在afterload 事件中加入如下代码：Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指教，谢谢！！！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/5/31 22:14:00 [显示全部帖子]


doc.Preview()面设置”窗体时，是不是要设计一个数据表，包括：方向、宽度、高度、左边距、右边距、上边距、下边距，然后在绑定到窗体，在窗体的afterload 事件中写入如下代码：
Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指导，谢谢！！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		页面设置窗体  发帖心情 Post By：2018/5/31 22:18:00 [显示全部帖子]

请问：我在 设计“页面设置”窗体时，是不是也要设定一个数据表，包括：方向、宽度、高度、左边距、右边距、上边距、下边距，然后绑定到窗体，在窗体的afterload 事件中写入如下代码：
Dim rdo2 As WinForm.RadioButton = e.Form.Controls("RadioButton2")
If rdo2.Checked = True Then
    e.Form.Page.Landscape = False
Else
    e.Form.Page.Landscape = True
End If
Dim hig As WinForm.NumericComboBox = e.Form.Controls("hig")
Dim wid As WinForm.NumericComboBox = e.Form.Controls("wid")
e.Form.Page.Width = wid.value
e.Form.Page.Height = hig.Value

Dim zbj As WinForm.NumericComboBox = e.Form.Controls("zb")
Dim ybj As WinForm.NumericComboBox = e.Form.Controls("yb")
Dim sbj As WinForm.NumericComboBox = e.Form.Controls("sb")
Dim xbj As WinForm.NumericComboBox = e.Form.Controls("xb")
e.Form.Page.LeftMargin = zbj.value
e.Form.Page.RightMargin = ybj.value
e.Form.Page.BottomMargin = xbj.value
e.Form.Page.TopMargin = sbj.value
Dim doc As PrintDoc = e.Form.GernatePrintDoc()
doc.Preview()
请指教，谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
rgbjwjb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：638 积分：6477 威望：0 精华：0 注册：2016/12/27 21:05:00 		  发帖心情 Post By：2018/6/1 23:17:00 [显示全部帖子]

我已设计了一个窗体，利用该窗体也能够实现表单打印，我想在该窗口中增加一个“页面设置”按钮，能弹出一个“页面设置“窗体，在这个窗体中能够实现在打印前，自己设置纸张大小、方向和页边距，并能保存上述设置，或者能否直接调用窗口设计器中的“页面设置”窗体，请问如何实现，谢谢！！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询