- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 我列印Tables("跟进_Table").数据问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=89453)
-- 发布时间：2016/8/22 14:44:00
-- 我列印Tables("跟进_Table").数据问题
我是先用Tables("跟进_Table")查询出数据。其中，有几列数据。我用table属性中的drawcell 进行了处理
If e.Col.Name = "应发数量" Then
If e.Row("应发数量")>0 Then
e.Row("应发数量")=Format(e.Row("应发数量"),"0.0")
Else
e.Row("应发数量")= Nothing
End If
End If
在显示时有没什么大问题。但当我用专用报表直接列印时就还是显示出来的小数位数了。如要是现在的小数位。就必须我把窗体表格从上面拉到下面。全部显示一下。打印就会是一位小数位。
可不可以用其他代码让我打印时也是一位小数位。
[此贴子已经被作者于2016/8/22 14:44:52编辑过]
-- 发布时间：2016/8/22 14:47:00
--
见附件
此主题相关图片如下：列印数据.png
上面部门都慢一位小数，下面就不对了。
[此贴子已经被作者于2016/8/22 14:47:48编辑过]
-- 发布时间：2016/8/22 14:56:00
--
datacolchanged事件
If e.DataCol.Name = "应发数量" Then
If e.DataRow("应发数量")>0 Then
e.DataRow("应发数量")=Format(e.DataRow("应发数量"),"0.0")
Else
e.DataRow("应发数量")= Nothing
End If
End If
查询后重置列
Tables("跟进_Table").DataTable.DataCols("应发数量").RaiseDataColChanged
-- 发布时间：2016/8/22 15:07:00
--
If e.DataCol.Name = "应发数量" Then
If e.DataRow("应发数量")>0 Then
e.DataRow("应发数量")=Format(e.DataRow("应发数量"),"0.0")
Else
e.DataRow("应发数量")= Nothing
End If
End If
Tables("跟进_Table").DataTable.DataCols("应发数量").RaiseDataColChanged
这些全写在table 的
datacolchanged事件里面吗。好像还是一样。没有变化。 |
-- 发布时间：2016/8/22 15:10:00
--
在
datacolchanged事件里一加 Tables("跟进_Table").DataTable.DataCols("应发数量").RaiseDataColChanged 后。运行就自动退出来了。整个系统。 |
-- 发布时间：2016/8/22 15:12:00
--
查询以后，执行这句
Tables("跟进_Table").DataTable.DataCols("应发数量").RaiseDataColChanged
-- 发布时间：2016/8/22 15:26:00
--
结果还是一样。必须先拉下下拉条。拉到底后再列印。数据就是对的。如下面还有多少没有拉到，就后面的还是原来小数位数。
此主题相关图片如下：sdfwrwerrwe.png
-- 发布时间：2016/8/22 15:28:00
--
必须这图中右边的拉条。全拉到底后，打印出来才是1位小数位。
此主题相关图片如下：qq图片20160822152702544545.png
-- 发布时间：2016/8/22 15:37:00
--
好了。谢谢红炮。