左栏'); } else{ document.write('关闭左栏'); } }catch(e){alert(e);}
Foxtable(狐表) → 用户栏目 → 专家坐堂 → 为什么要再点一下当前表，才正确执行下面的代码


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

主题：为什么要再点一下当前表，才正确执行下面的代码
帅哥哟，离线，有人找我吗？
天宇科技
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		为什么要再点一下当前表，才正确执行下面的代码  发帖心情 Post By：2020/6/22 8:12:00 [只看该作者]

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


为什么要再点一下当前表，才正确执行下面的代码，我点击菜单，第一次输出句“MessageBox.Show("未找到:" & lj & "Attachments\" & str1)”，如果我再点一下当前表，就找到了图片了。
——————————————————————————————————————————————————————————————————————————————
Forms("幼教成绩册").Open
If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
    If CurrentTable.Rows.Count > 0 Then
        Dim lj As String = ProjectPath
        For Each dr As Row In CurrentTable.Rows
            Dim str1 As String =dr("姓名") & ".jpg"
            If FileSys.FileExists("" & lj & "Attachments\" & str1 & "")  = True Then
                dr("照片") = dr("姓名") & ".jpg"
            Else
                MessageBox.Show("未找到:" & lj & "Attachments\" & str1)
                dr("照片") = Nothing
            End If
        Next
    Else
        MessageBox.Show("当前表没有数据,无法执行该操作!","错误",MessageBoxButtons.OK,MessageBoxIcon.Error)
    End If
End If
[此贴子已经被作者于2020/6/22 15:14:19编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

试试

CurrentTable.FinishEditing
Forms("幼教成绩册").Open
If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
……
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2020/6/22 9:24:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200622092313.png
图片点击可在新窗口打开查看
还是提示这个，要多点击一次当前表，就能正确执行了。
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

请上传实例测试

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


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2020/6/22 10:45:00 [只看该作者]

今天传不上来呢

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


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

http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

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


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2020/6/22 15:05:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20200622103715.png
图片点击可在新窗口打开查看
请蓝版点击菜单“导入照片”


[此贴子已经被作者于2020/6/22 15:07:06编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2020/6/22 15:06:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理系统.zip
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

默认打开窗口并不会选中里面的表，CurrentTable是主窗口绑定的表

Forms("幼教成绩册").Open
Forms("幼教成绩册").Controls("幼教成绩册").Select

If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
    If CurrentTable.Rows.Count > 0 Then
 回到顶部
帅哥哟，离线，有人找我吗？
天宇科技
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：471 积分：4014 威望：0 精华：0 注册：2018/5/13 15:18:00 		  发帖心情 Post By：2020/6/22 18:42:00 [只看该作者]

行了。谢谢

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