主题：专业报表提取打印参数出错

用表中的整数型变量的值设置打印参数会提示出错。

此主题相关图片如下：a1.gif

 

     '检查当前表单是否设计了打印模板
                Dim dr As DataRow = DataTables("Argtb").Find("tbN = '" & Mtb & "'")
                If dr IsNot Nothing Then
                    '设置打印纸张
                    doc.PageSetting.PaperKind = dr("PaperKind")
                    doc.PageSetting.Landscape = dr("Landscape") '是否横向打印

                    'Doc.PageSetting.LeftMargin = dr("PageL")  '设置左边距
                    Doc.PageSetting.LeftMargin = CInt(dr("PageL")) '设置左边距
                    Doc.PageSetting.RightMargin = CInt(dr("PageR")) '设置右边距
                    Doc.PageSetting.TopMargin = CInt(dr("PageT")) '设置上边距
                    Doc.PageSetting.BottomMargin = CInt(dr("PageB")) '设置下边距
                Else
                    MessageBox.Show("当前表单未设计打印模板!","提示")
                    Return 
                End If

 

上面表中提取的数值全部是整数型的，但奇怪的是蓝色的两行代码执行不出错，下面设置页边距的四行不加Cint转换就会出错，是什么原因？谢谢！

你列PaperKind应该是字符串列,应该改为数值列.

 全部都是设置的整数型的，执行paperkind和Landscape两行时都没问题，执行第三行设置左边距时才出错的。

此主题相关图片如下：360截图20140312145700852.jpg

你的LeftMargin 是否是空值. 空值的话就会报错了.

没有空值， 全部都有值的，现在是用Cint函数转换一下后面四行就不出错，打印输出就正确了，可能是程序bug吧。

messagebox.show(dr("PageL") )

 

看看是什么。

就是1楼显示的10