Foxtable(狐表)用户栏目专家坐堂 → 原来好好的,现在不知道为什么不行了


  共有2565人关注过本帖树形打印复制链接

主题:原来好好的,现在不知道为什么不行了

帅哥哟,离线,有人找我吗?
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/30 16:02:00 [显示全部帖子]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,看哪一句代码出错

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/30 16:20:00 [显示全部帖子]

每一行之后都添加调试代码,看执行弹出哪一个提示框后出错

Dim year As String  = e.F orm.Controls("所属年").Value
MessageBox.Show(1)
Dim moth As String  = e.F orm.Controls("所属月").Value
MessageBox.Show(2)
If year = "" OrElse moth = "" Then
MessageBox.Show(3)
    Messagebox.show("请选择工资报表所属的年和月,如果需要查询全年工资,请点击历史工资表选项!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
MessageBox.Show(4)
……
[此贴子已经被作者于2023/8/30 16:20:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/30 16:55:00 [显示全部帖子]

到命令窗口单独测试这些模板生成有没有问题,比如

Dim tmp As String = ProjectPath & "Attachments\工资清单.xls"
    Dim Book As New XLS.Book(tmp)
    Book.Build()
    Book.Save(rpt) '保存为XLS文件

或者到打开模板设计,看预览有没有问题

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/30 16:56:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111393 积分:567029 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/8/30 17:06:00 [显示全部帖子]

那要自己测试不同系统,才能做判断了

 回到顶部