以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]窗口操作为什么报错？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=170219)
--  作者：老鼠
--  发布时间：2021/7/16 21:49:00
--  [求助]窗口操作为什么报错？
 这是示例：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:生活困难补助系统.table

图片点击可在新窗口打开查看此主题相关图片如下：捕获.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：捕获1.png
图片点击可在新窗口打开查看
--  作者：老鼠
--  发布时间：2021/7/16 22:12:00
--  
 这是报表文档：
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:困难领据.xls

[此贴子已经被作者于2021/7/16 22:14:11编辑过]
--  作者：老鼠
--  发布时间：2021/7/17 1:07:00
--  
 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

以上是窗口确定按钮代码，为什么会报错呢？请各位老师解惑？？？？
--  作者：老鼠
--  发布时间：2021/7/17 1:09:00
--  
以下是依据打印代码：
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


可为什么也会报错呢？？？？？请各位老师解惑？？？？？
--  作者：有点蓝
--  发布时间：2021/7/17 9:42:00
--  
学会自行判断一下错误的意思，英文看不懂的学会百度，网上大把翻译网站。

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

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