Foxtable(狐表)用户栏目专家坐堂 → 窗体表复选框 怎么根据选择的行来生成对应的excel模板文件呢?


  共有3739人关注过本帖平板打印复制链接

主题:窗体表复选框 怎么根据选择的行来生成对应的excel模板文件呢?

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


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
窗体表复选框 怎么根据选择的行来生成对应的excel模板文件呢?  发帖心情 Post By:2022/3/31 9:43:00 [只看该作者]

窗体表复选框  怎么根据选择的行来生成对应的excel模板文件呢?

 

Dim rs As List(of Row) = Tables(e.Form.Name & "_table1").GetCheckedRows
Dim Book As New XLS.Book(ProjectPath & "Attachments\廉政档案目录正面.xlsx")
Dim Proc As New Process
Dim fl As String = ProjectPath & "Reports\廉政档案目录正面.xlsx"
If rs.Count > 0 Then '如果存在符合条件的行
    For Each bb As Row In rs '逐行生成报表
        Book.Build() '生成细节区
    Next
End If
Book.Save(fl) '保存工作簿
'Proc.File = fl
'Proc.Start()

 

运行提示

无法将类型为“C1.C1Excel.XLPictureShape”的对象强制转换为类型“System.IConvertible”。

 

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2020.5.29.8
错误所在事件:
详细错误信息:
表单名称必须唯一。

 

 

 

 

如下代码:

Dim Book As New XLS.Book(ProjectPath & "Attachments\廉政档案目录正面.xlsx")
Dim fl As String = ProjectPath & "Reports\廉政档案目录正面.xlsx"
Book.Build() '生成细节区
'Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

运行的时候  会把当前所有表行数据生成     有时候不是需要所有的都打印  需要打印部分 或者一条  

有没有更好的办法呢?

[此贴子已经被作者于2022/3/31 9:44:40编辑过]

 回到顶部