以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  合并表数据  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136526)
--  作者：rgbjwjb
--  发布时间：2019/6/15 7:34:00
--  合并表数据
附件上传不了，出现这个提示：文件大小超过了限制 2048KB!
--  作者：有点蓝
--  发布时间：2019/6/15 8:33:00
--  
论坛只能上传不超过2M的附件，如果文件大，可以放到网盘，然后把下载链接贴出来
--  作者：rgbjwjb
--  发布时间：2019/6/20 21:05:00
--  

我在设计时不小心删除了一个数据表，可否恢复？谢谢！！

 
--  作者：有点甜
--  发布时间：2019/6/20 21:45:00
--  
以下是引用rgbjwjb在2019/6/20 21:05:00的发言：

我在设计时不小心删除了一个数据表，可否恢复？谢谢！！

 

 

如果是外部表，重新引入对应的数据表，即可。如果是内部表，删除后，无法恢复。

 

 
--  作者：rgbjwjb
--  发布时间：2019/6/24 11:00:00
--  

在单据放入打印机后，点击“打印”后，出现这样的情况：先退出单据，然后要人工再放入单据才可打印，请问是不是下面的代码需要修改？谢谢！！

 

 

Dim mg As String = ProjectPath & "Images\\二维码.wmf" \'约定的图片文件
Dim r As Row = Tables("收款明细表").Current
Dim Bar As New BarCodeBuilder
Bar.Symbology = Barpro.Symbology.QRCode
Bar.Code = "债权人:" & r("债权人") & vbcrlf & "借款日期:" & r("借款日期")& vbcrlf & "借款年限:" & r("借款年限")&"年"& vbcrlf & "借款利率:" & r("利率")& vbcrlf & "借款金额:" & r("收取金额")
bar.SaveImage(mg,300)
Dim pic As WinForm.PictureBox = e.Form.Controls("PictureBox1")
pic.Image = getimage(ProjectPath & "Images\\二维码.wmf" )
pic.SizeMode = ImageSizeMode.Zoom
Dim DoC As PrintDoc = e.Form.Gernateprintdoc()
Doc.Print

 
--  作者：有点甜
--  发布时间：2019/6/24 11:36:00
--  

 

代码没问题，做一个实例发上来测试

 

 
--  作者：rgbjwjb
--  发布时间：2019/6/24 14:08:00
--  
收款收据窗体
--  作者：rgbjwjb
--  发布时间：2019/6/24 14:14:00
--  

链接：https://pan.baidu.com/s/1z38egukQWgh6GG_XR6eBww
提取码：2un0
复制这段内容后打开百度网盘手机App，操作更方便哦
--  作者：有点甜
--  发布时间：2019/6/24 14:31:00
--  

 

我测试没问题，请说明操作步骤和遇到的问题。截图说明一下。

 

 
--  作者：rgbjwjb
--  发布时间：2019/6/24 15:07:00
--  

在单据放入打印机后，点击“打印”后，在电脑上显示是正常的，所以不要截图；只是在打印机上 出现这样的情况：原先装入的单据从打印机中吐出来，然后要人工再将单据放入打印机后才可打印