[求助]关于指定的转换无效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，又不会了，麻烦看一下，谢谢！

问题一：

Dim cr As Color

Dim ht As Integer

Dim ydr As DataRow = DataTables("打印页面设置").Find("表名 = '科目余额表'")

If ydr IsNot Nothing Then

If ydr("默认") = False Then

If ydr("纸张类型") = "A4" Then

doc.PageSetting.PaperKind = 9 '纸张类型改为A4

Else

doc.PageSetting.PaperKind = 9 '纸张类型改为A4,目前先写死

End If

If ydr("纸张方向") = "横向" Then

doc.PageSetting.Landscape = True '横向打印

Else

doc.PageSetting.Landscape = False '竖向打印

End If

doc.PageSetting.LeftMargin = ydr("左边距")'设置左边距

doc.PageSetting.RightMargin = ydr("右边距") '设置右边距

doc.PageSetting.TopMargin = ydr("上边距") '设置上边距

doc.PageSetting.BottomMargin = ydr("下边距") '设置下边距

cr = ydr("网格线颜色")

ht = ydr("行高")

Else

doc.PageSetting.PaperKind = 9 '纸张类型改为A4

doc.PageSetting.Landscape = True '横向打印

doc.PageSetting.LeftMargin = 30 '设置左边距

doc.PageSetting.RightMargin = 30 '设置右边距

doc.PageSetting.TopMargin = 20 '设置上边距

doc.PageSetting.BottomMargin = 20 '设置下边距

cr = Color.Gray

ht = 6

End If

Else

doc.PageSetting.PaperKind = 9 '纸张类型改为A4

doc.PageSetting.Landscape = True '横向打印

doc.PageSetting.LeftMargin = 30 '设置左边距

doc.PageSetting.RightMargin = 30 '设置右边距

doc.PageSetting.TopMargin = 20 '设置上边距

doc.PageSetting.BottomMargin = 20 '设置下边距

cr = Color.Gray

ht = 6

End If

打印页面设置表结构如下：

此主题相关图片如下：微信截图_20220829154809.png

执行出现以下错误提示：

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2022.8.18.1

错误所在事件：自定义函数,科目余额表打印

详细错误信息：

调用的目标发生了异常。

指定的转换无效。

问题二，用以下代码设置行高，最前和最后会各出现一行空白行：

'重新定义行高

For i As Integer = 0 To rt.Rows.Count

rt.Rows(i).Height = ht '设置行高

此主题相关图片如下：微信截图_20220829154647.png

[此贴子已经被作者于2022/8/29 15:49:51编辑过]

主题：[求助]关于指定的转换无效