Foxtable(狐表) → 用户栏目 → 专家坐堂 → net2.0下PDF转图片


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

主题：net2.0下PDF转图片
帅哥哟，离线，有人找我吗？
zoyong
 小大  61楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/6/29 16:33:00 [只看该作者]

O2S.Components.PDFRender4NET.PDFFile.Open   这个文件太旧了吗

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  62楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 16:47:00 [只看该作者]

引用的dll文件

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  63楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/6/29 17:26:00 [只看该作者]

换了版本出现其他错误了O2S.Components.PDFRender4NET

未能加载文件或程序集“O2S.Components.PDFRender4NET, Version=2.0.1.0, Culture=neutral, PublicKeyToken=null”或它的某一个依赖项。找到的程序集清单定义与程序集引用不匹配。 (异常来自 HRESULT:0x80131040)


 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:o2s.components.pdfrender4net x86.zip


[此贴子已经被作者于2020/6/29 17:26:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  64楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/29 20:06:00 [只看该作者]

把4.0.2.0目录里面的dll复制到foxtable安装目录使用

 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  65楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/7/28 9:36:00 [只看该作者]

DataColChanged代码

Select Case  e.DataCol.Name
    Case "客户名称"
        If dr.IsNull("客户名称") = True Then '是否为空
            dr("简码") = Nothing
        Else
            dr("简码") = PY.GetPY(dr("客户名称"),False,3)
        End If
        

    Case "fa piao号码","客户名称"   
        If dr.IsNull("fa piao号码") = True Or dr.IsNull("客户名称") = True Then '是否为空
            dr("fa piao路径") = Nothing '如果为空,则清除
        Else
            Dim lj As String = "/图片文件/开piao登记_Table1/" & dr("年份") & "/"
            dr("fa piao路径") = lj & dr("fa piao号码") & "-" & dr("客户名称") & ".jpg"
        End If
End Select


为什么修改了客户名称后， 红色的字段不会变化，改成以下代码就正常了，会不会是系统程序问题

Select Case  e.DataCol.Name
    Case "客户名称"
        If dr.IsNull("客户名称") = True Then '是否为空
            dr("简码") = Nothing
        Else
            dr("简码") = PY.GetPY(dr("客户名称"),False,3)
        End If
Select Case  e.DataCol.Name        
End Select
    Case "fa piao号码","客户名称"   
        If dr.IsNull("fa piao号码") = True Or dr.IsNull("客户名称") = True Then '是否为空
            dr("fa piao路径") = Nothing '如果为空,则清除
        Else
            Dim lj As String = "/图片文件/开piao登记_Table1/" & dr("年份") & "/"
            dr("fa piao路径") = lj & dr("fa piao号码") & "-" & dr("客户名称") & ".jpg"
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  66楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110333 积分：561507 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/7/28 9:46:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
zoyong
 小大  67楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：668 积分：7918 威望：0 精华：0 注册：2015/8/24 9:02:00 		  发帖心情 Post By：2020/8/23 15:46:00 [只看该作者]

如何删除TXT文本最后一行     最后一行为回车符或空值

 回到顶部
总数 67 上一页 1 2 3 4 5 6 7
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04492 秒, 5 次数据查询