Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出


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

主题：导出
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 10:13:00 [显示全部帖子]

If i > 0 Then
ftp1.Rename(FileSys.GetName(projectPath & "attachments\" & name),"\" &dr("记录时间") &  "\" & dr("记录时间") &"("&  i &").jpg")
Dim name1 ="\" &dr("记录时间") & "\" & dr("记录时间") &"("&  i &").jpg"
     line.add(name1)
ftp1.Delete("/" & FileSys.GetName(projectPath & "attachments\" & name))
Else
ftp1.Rename(FileSys.GetName(projectPath & "attachments\" & name),"\" &dr("记录时间") & "\" & dr("记录时间") &".jpg")
Dim name1="\" &dr("记录时间") & "\" & dr("记录时间") &".jpg"
     line.add(name1)
ftp1.Delete("/" & FileSys.GetName(projectPath & "attachments\" & name))
End If


               
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 10:52:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 11:20:00 [显示全部帖子]

测试有啥问题

 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 11:41:00 [显示全部帖子]

4楼代码不是就用到单号生成图片名称了吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 15:29:00 [显示全部帖子]

没有理解错，就是获取execl里的单号作为条件进行查询。

上面的代码里就有获取execl里单号的用法，仔细看一下代码
Dim name = ary(n, 1) & "_" & j & ".jpg"
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 16:11:00 [显示全部帖子]

没看到有查询判断的代码，8楼的代码放到哪里了？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/12/29 16:22:00 [显示全部帖子]

知道新增行的代码在哪里吗？放到新增行之前判断

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/13 17:31:00 [显示全部帖子]

加了什么代码？用颜色标识一下

 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/15 9:17:00 [显示全部帖子]

…… 
           End If

        Next

Output.Show("dic.keys=" & dic.keys.count)
 For n As Integer = 2 To rg.Rows.Count
If DataTables("table_3").Find("单号 = '" & ary(n, 1) & "'") Is Nothing Then
            Dim ro As Row = Tables("table_3").AddNew

            For Each k As String In dic2.Keys
If Tables("table_3").Cols.Contains(k) AndAlso k <> "图片"
                ro(k) = ary(n,dic2(k))
End If
            Next
……
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105929 积分：538714 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/1/15 16:47:00 [显示全部帖子]

1、图片本身有问题
2、图片名称有没有特殊符号？

Output.Show("name=" & name) ‘’图片名称有没有特殊符号？
                    msgbox(name)

                    ls(j).copy
try
                    ClipBoard.GetImage.save(projectPath & "attachments\" & name)
catch ex as exception
Output.Show("图片异常无法保存=" & ex.message)
end try
 回到顶部
总数 14 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 5 次数据查询