- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么要再点一下当前表，才正确执行下面的代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151362)
-- 发布时间：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编辑过]
-- 发布时间：2020/6/22 8:41:00
--
试试
CurrentTable.FinishEditing
Forms("幼教成绩册").Open
If MessageBox.Show("批量导入照片一般用于人员信息导入之后操作,如果确定已经完成基础数据导入,可以使用本功能" & vbcrlf & "系统默认会在程序的Attachments文件夹内搜索文件!!","提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning) = dialogresult.ok Then
……
-- 发布时间：2020/6/22 9:24:00
--
此主题相关图片如下：qq图片20200622092313.png
还是提示这个，要多点击一次当前表，就能正确执行了。
-- 发布时间：2020/6/22 9:50:00
--
请上传实例测试
-- 发布时间：2020/6/22 10:45:00
--
今天传不上来呢
-- 发布时间：2020/6/22 11:00:00
--
http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2020/6/22 15:05:00
--
此主题相关图片如下：qq图片20200622103715.png
请蓝版点击菜单“导入照片”
[此贴子已经被作者于2020/6/22 15:07:06编辑过]
-- 发布时间：2020/6/22 15:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理系统.zip |
-- 发布时间：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
-- 发布时间：2020/6/22 18:42:00
--
行了。谢谢