Foxtable(狐表)用户栏目专家坐堂 → 网页直接生成下载excel


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

主题:网页直接生成下载excel

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
网页直接生成下载excel  发帖心情 Post By:2023/6/10 11:44:00 [显示全部帖子]

Dim e As RequestEventArgs = args(0) 
Dim wb As New WeUI
Dim flt As String

If e.PostValues.Count > 0 Then 
    If e.PostValues.ContainsKey("startdate") Then
        If flt > "" Then
            flt = flt & " and "
        End If
        flt = flt & "入境时间 >= '" & e.PostValues("startdate") & "'"
    End If
    If e.PostValues.ContainsKey("enddate") Then
        If flt > "" Then
            flt = flt & " and "
        End If
        flt = flt & "入境时间 <= '" & e.PostValues("enddate") & "'" 
    End If
    If flt > "" Then 
    wb.AppendCookie("fzfilter", flt) 
    Dim Book As New XLS.Book(ProjectPath & "Attachments\船舶统计表.xls")
    book.AddDataTable("员工", "chuanbojianguan", "Sel ect * from {检疫资料} where " & flt)
    e.WriteBook(book, "emp.xls", False)
End If
Else
    flt = e.Cookies("fzfilter")
End If


这样写报错:.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:自定义函数,tongji
详细错误信息:
调用的目标发生了异常。
打开存储文件失败。

问题在哪呢?

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/6/10 11:55:00 [显示全部帖子]

添加了一个空表在这个目录,现在打开之后表里没有任何 内容,这个不是应该自动生成带内容的excel吗?还需要自己做报表吗?

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/6/10 12:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230610124126.png
图片点击可在新窗口打开查看

这些为什么都是空的呢?

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


加好友 发短信
等级:五尾狐 帖子:1065 积分:7598 威望:0 精华:0 注册:2009/6/24 9:44:00
  发帖心情 Post By:2023/6/10 13:08:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20230610130701.png
图片点击可在新窗口打开查看

 回到顶部