[求助]窗口操作为什么报错？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这是示例：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:生活困难补助系统.table

此主题相关图片如下：捕获.png

此主题相关图片如下：捕获1.png

这是报表文档：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:困难领据.xls

[此贴子已经被作者于2021/7/16 22:14:11编辑过]

Dim ybz As WinForm.TextBox = e.Form.Controls("月补助标准")
Dim xbz As WinForm.ComboBox = e.Form.Controls("现补助标准")
Dim rq As WinForm.DateTimePicker = e.Form.Controls("执行日期")
Dim pzh As WinForm.TextBox = e.Form.Controls("批复文号")
Dim bz As WinForm.TextBox = e.Form.Controls("备注")

If xbz.Value = ybz.Value Then '若现补助标准与原补助标准的值均相同
MessageBox.Show("补助标准未发生变化!")
ElseIf xbz.Value = "" Then '若现补助标准为输入内容
MessageBox.Show("未输入现补助标准!")
Else
Dim r0 As Row = Tables("基础信息").Current
Dim r As Row = Tables("补助标准").AddNew
r("遗属身份证号码") = r0("遗属身份证号码")
r("月补助标准") = r0("月补助标准")
r("现补助标准") = xbz.Value
r("执行日期") = rq.Value
r("批复文号") = pzh.Value
r("备注") = bz.Value

r0("月补助标准") = xbz.Value
e.Form.Close

End If

以上是窗口确定按钮代码，为什么会报错呢？请各位老师解惑？？？？

以下是依据打印代码：

Dim Book As New XLS.Book(ProjectPath & "Attachments\困难领据.xls")    '根据指定模板定义一个Excel工作簿
Dim fl As String = ProjectPath & "Reports\困难领据.xls"               '定义返回项目文件所在目录
Dim Sheet As XLS.Sheet = Book.Sheets(0)
With Sheet.PrintSetting
    .PaperKind = 9            '设为A4纸
    .LandScape = False        '横向打印
    .MarginLeft = 18          '左右边距设为20毫米
    .MarginRight = 18
    .MarginTop = 9            '上下边距设为15毫米
    .MarginBottom = 19
End With
Book.Build()
Book.save(fl)                                                          '生成细节区
Dim Proc As New Process
Proc.File = fl
Proc.Verb = "Print"
proc.start()
e.Form.close

可为什么也会报错呢？？？？？请各位老师解惑？？？？？

学会自行判断一下错误的意思，英文看不懂的学会百度，网上大把翻译网站。

第一个错误的意思就是明明是文本框，却定义成了组合框：Dim xbz As WinForm.ComboBox = e.Form.Controls("现补助标准")

第二个错误的意思是系统没有安装office，无法打开xls文件打印

主题：[求助]窗口操作为什么报错？