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


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

主题:net2.0下PDF转图片

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


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

D:/WEB

dr("证件图片") = /证件管理/七大员/水利安全员-俞静静.jpg
文件实际路径:  E:/WEB/证件管理/七大员/水利安全员-俞静静.jpg

FTP可以下载

但是下面代码无效,看不到图片

        With .AddUploader("up1","证件图片",True)
            .TextPosition = 0 '标题靠左
            .AllowDelete = False '不允许用户删除图片
            .AllowAdd = False '关闭文件上传功能
            .AddImage(dr("证件图片"),dr("证件图片"))
        End With

 回到顶部
帅哥,在线噢!
有点蓝
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105477 积分:536376 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/22 15:07:00 [只看该作者]

图片必须放到D:/WEB里,否则无法使用。服务端只能根据WebPath路径找文件

HttpServer.WebPath = "d:\web"  '指定静态文件存储位置

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/22 16:54:00 [只看该作者]

Dim e As RequestEventArgs = args(0)
'保存订单
Dim dr As DataRow = DataTables("订单").SQLFind("订单编号='" & e.PostValues("订单编号") & "'")
Dim nms() As String = {"客户","日期"}  
If dr IsNot Nothing Then
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm)= e.PostValues(nm)
End If
Next
End If
dr.Save()


如何判断,输入的单元格“客户”,“日期”不为空值    也就是空值不能保存

 回到顶部
帅哥,在线噢!
有点蓝
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105477 积分:536376 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/22 17:15:00 [只看该作者]

参考:http://www.foxtable.com/mobilehelp/topics/0059.htm

            Dim nms() As String = {"姓名","年龄","日期","级别"} '不能为空的列名数组 
            For Each nm As String In nms

                
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页 
                    With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!"
                        .icon = "Warn" '改变图标
                        .AddButton("btn1","返回").Attribute = ""
                    End With
                    e.WriteString(wb.Build)
                    Return '必须返回
                End If
            Next

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/24 20:58:00 [只看该作者]

怎样统计三表生成临时表

表A + 表B + 表C = 统计表(合并)

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:多表合并.table



表A + 表B + 表C   三表中要合并的列名都相同

 回到顶部
帅哥,在线噢!
有点蓝
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

使用sql:http://www.foxtable.com/webhelp/topics/0696.htm
select 第一列,第二列,第三列,第四列 from 表A union all select 第一列,第二列,第三列,第四列 from 表B union all select 第一列,第二列,第三列,第四列 from 表C

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


加好友 发短信
等级:三尾狐 帖子:647 积分:7675 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2020/2/27 19:59:00 [只看该作者]

'读取日志
Dim lj As String = ProjectPath & "MyTimerslog\"
If FileSys.DirectoryExists(lj) = False Then '如果目录不存在
    FileSys.CreateDirectory(lj) '则新建
End If
Dim wj As String = format(Date.today,"yyyy-MM-dd") & ".txt"   '定义文件名

If FileSys.FileExists(lj & wj) = True Then   '判断文件是否存在
    e.Form.Controls("日志").text = FileSys.ReadAllText(lj & wj, Encoding.Default)  '向文件读取内容
Else
    e.Form.Controls("日志").text = Nothing
End If


代码读取写入到文本框结果:2020-02-27 08:48:09 半小时1次 半小时1次2020-02-27 09:57:02 一小时1次 巡查轨迹2020-02-27 09:57:03 每天9点 发送短信2020-02-27 10:56:35 二小时1次 二小时1次



怎样才能用以下的格式显示 ,  正常文件打开就是这样的
2020-02-27 08:48:09 半小时1次 半小时1次
2020-02-27 09:57:02 一小时1次 巡查轨迹
2020-02-27 09:57:03 每天9点 发送短信
2020-02-27 10:56:35 二小时1次 二小时1次


 回到顶部
帅哥,在线噢!
有点蓝
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

文本框设置为多行模式

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


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

cmd.CommandText = "Se ect 姓名,证件名称,专业,发证单位 from {ZJ_三类人员} union all Se ect 姓名,证件名称,专业,发证单位 from {ZJ_七大员} union all Se ect 姓名,证件名称,专业,发证单位 from {ZJ_项目经理}"



表的部份列名一样

合并三个表后生成同一张临时表,以上代码起作用,但是只显示了部门行数据

 回到顶部
帅哥,在线噢!
有点蓝
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

看不出什么问题。把sql放到数据库里执行有没有问题?

 回到顶部
总数 67 上一页 1 2 3 4 5 6 7 下一页