- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 图片直接批量写入图片列 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=149596)
-- 发布时间：2020/5/7 10:32:00
-- 图片直接批量写入图片列
图片直接批量写入图片列
将相对目录下Attachments\\准考证\\二维码 的图片批量导入到表中的“二维码列” 或表中的“二维码列” 如何自动读取目录Attachments\\准考证\\二维码 的对应图片
此主题相关图片如下：360截图20200507102846942.jpg
此主题相关图片如下：1.jpg
[此贴子已经被作者于2020/5/7 10:38:04编辑过]
-- 发布时间：2020/5/7 10:41:00
--
打开对话框选择文件：http://www.foxtable.com/webhelp/topics/0328.htm
然后根据文件名拆分获取班级和人名，比如
Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
OutPut.Show("你选择了" & dlg.FileNames.Length & "个文件, 分别是:")
For Each fl As String In dlg.FileNames
Dim filename As String = FileSys.GetName(fl)
Output.Show(filename )
Dim bj As String = filename.SubString(0,2)
Output.Show(bj)
Dim name As String = filename.SubString(2,filename.Length - 8)
Output.Show(name)
Dim dr As DataRow = DataTables("表A").Find("班级=\'" & bj & "\' And 姓名=\'" & name & "\'")
If dr IsNot Nothing Then
dr("二维码") = filename
End If
Next
End If
-- 发布时间：2020/5/7 10:55:00
--
达不到目的？我的意思是二维码已经有了，不用再生成，现在只需要在“二维码”列自动按照 班级 姓名将图片自动插入，不用再一一选择插入
-- 发布时间：2020/5/7 11:04:00
--
for each dr As DataRow in DataTables("表A").datarows
dr("二维码") = dr("班级") & dr("姓名") & "的二维码信息.jpg"
next
-- 发布时间：2020/5/7 11:13:00
--
谢谢！好了，达到目的
-- 发布时间：2020/6/1 12:59:00
--
同问