Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于预览图片问题


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

主题：关于预览图片问题
帅哥哟，离线，有人找我吗？
裴保民
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		关于预览图片问题  发帖心情 Post By：2020/9/10 18:04:00 [显示全部帖子]

在 TimerTick 事件中写了如下代码，运行后假如数据行没有图片时会报错，怎么处理


Dim wjjmc As String
Dim t As  Table = Tables("充值凭证表")
wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
Dim shID As String = e.Form.Controls("czpzIDTextBox").value
Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
Dim str As String = dr1("充值凭证原始名称")
For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
    Dim name As String = FileSys.GetName(file)
    If name.Contains(str) Then
        Dim ls = dr1.Lines("充值凭证")
        If ls.contains(name) = False Then
            ls.add(name)
            dr1.lines("充值凭证") = ls
            DataTables("充值凭证表").Save
        End If
    End If
Next
DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"




图片点击可在新窗口打开查看此主题相关图片如下：截图08.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图09.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/9/10 19:39:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/10 21:01:00 [显示全部帖子]

蓝老师照您修改后还是错误

图片点击可在新窗口打开查看此主题相关图片如下：截图10.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：截图11.jpg
图片点击可在新窗口打开查看

代码如下

Dim wjjmc As String
Dim t As  Table = Tables("充值凭证表")
wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
Dim shID As String = e.Form.Controls("czpzIDTextBox").value
Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
Dim str As String = dr1("充值凭证原始名称")
Dim lst As List(of String)
If dr1.isnull("充值凭证") Then
lst = new List(of String)
Else
lst =dr1.Lines("充值凭证")
End If
For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
    Dim name As String = FileSys.GetName(file)
If name.Contains(str) AndAlso lst.contains(name) = False  Then
        lst.add(name)
    End If
Next
dr1.lines("充值凭证") = lst
DataTables("充值凭证表").Save
DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"
[此贴子已经被作者于2020/9/10 21:12:50编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/10 21:52:00 [显示全部帖子]

蓝老师是没照片，没照片这个文件夹肯定也不存在的，如果有照片行没事，只要某一行无照片就会出现错误，并且关闭了程序出现死循环
[此贴子已经被作者于2020/9/10 21:54:44编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/10 22:16:00 [显示全部帖子]

Dim wjjmc As String
Dim t As  Table = Tables("充值凭证表")
wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
Dim shID As String = e.Form.Controls("czpzIDTextBox").value
Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
Dim str As String = dr1("充值凭证原始名称")
Dim lst As List(of String)
If dr1.isnull("充值凭证") Then
    lst = new List(of String)
Else
    lst =dr1.Lines("充值凭证")
End If
If FileSys.DirectoryExists(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" ) Then '如果目录C:\MyFolder存在
    For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
        Dim name As String = FileSys.GetName(file)
        If name.Contains(str) AndAlso lst.contains(name) = False  Then
            lst.add(name)
        End If
    Next
    dr1.lines("充值凭证") = lst
    DataTables("充值凭证表").Save
    DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"
End If


这段代码放到计时器上运行没发现错误，怎么放到CurrentChanged事件中就出现未实例化呢？
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 7:37:00 [显示全部帖子]

If Tables("充值凭证表").current("充值凭证") Is Nothing  Then
    Dim wjjmc As String
    Dim t As  Table = Tables("充值凭证表")
    wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
    Dim dlg As New FolderBrowserDialog
    Dim czkh As DataRow
    Dim shID As String = e.Form.Controls("czpzIDTextBox").value
    Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
    Dim str As String = dr1("充值凭证原始名称")
    Dim lst As List(of String)
    If dr1.isnull("充值凭证") Then
        lst = new List(of String)
    Else
        lst =dr1.Lines("充值凭证")
    End If
    If FileSys.DirectoryExists(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" ) Then '如果目录C:\MyFolder存在
        For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str) AndAlso lst.contains(name) = False  Then
                lst.add(name)
            End If
        Next
        dr1.lines("充值凭证") = lst
        DataTables("充值凭证表").Save
        DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"
    End If
End If

启动后只能加载一条图片，其他有图片也不显示
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 9:16:00 [显示全部帖子]

对，打开窗体后选中那一行那一行就显示，换到其他行就不显示了，直到关闭窗体后重新登录窗体

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


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 9:51:00 [显示全部帖子]

下一次启动窗体时如果选择当前行选择的是上次不显示图片的行时就能显示图片了，可是上次显示图片的行就不显示了，说明不是路径和文件名的问题吧，现在是只显示启动窗体时所显示的行，其他都不显示
[此贴子已经被作者于2020/9/11 9:54:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 10:00:00 [显示全部帖子]

现在是只显示启动窗体时所显示的行，其他都不显示 该调试哪呢？

如果把DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" 移到判断空值外时，还是提示错误


[此贴子已经被作者于2020/9/11 10:02:24编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 10:14:00 [显示全部帖子]

蓝老师现在就是在CurrentChanged事件上呢？

DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" 
设置DefaultFolder了
怎样设置不对吗？

全部代码如下

Dim wjjmc As String
Dim t As  Table = Tables("充值凭证表")
wjjmc =Format(T.Current("充值日期"),"yyy年MM月dd日") & "【" & T.Current("起始号") & "至" & T.Current("终止号") & "】"
Dim dlg As New FolderBrowserDialog
Dim czkh As DataRow
Dim shID As String = e.Form.Controls("czpzIDTextBox").value
Dim dr1 As DataRow = DataTables("充值凭证表").Find("充值凭证ID= '" & shID & "'" )
Dim str As String = dr1("充值凭证原始名称")
Dim lst As List(of String)
If dr1.isnull("充值凭证") Then
    lst = new List(of String)
Else
    lst =dr1.Lines("充值凭证")
End If
If Tables("充值凭证表").current("充值凭证") Is Nothing  Then
    If FileSys.DirectoryExists(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" ) Then '如果目录C:\MyFolder存在
        For Each file As String In FileSys.GetFiles(ProjectPath & "照片\充值凭证截图\" & wjjmc & "\" )
            Dim name As String = FileSys.GetName(file)
            If name.Contains(str) AndAlso lst.contains(name) = False  Then
                lst.add(name)
            End If
        Next
        dr1.lines("充值凭证") = lst
        DataTables("充值凭证表").Save
        DataTables("充值凭证表").DataCols("充值凭证").DefaultFolder =ProjectPath & "照片\充值凭证截图\" & wjjmc & "\"
    End If
End If
[此贴子已经被作者于2020/9/11 10:17:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
裴保民
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1989 积分：12631 威望：0 精华：0 注册：2017/4/3 15:01:00 		  发帖心情 Post By：2020/9/11 11:36:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片浏览.rar
 回到顶部
总数 11 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.05859 秒, 6 次数据查询