专家坐堂-请问我想批量导入一些图片，这批图的文件名有23位数字字母组成，现在需要对其进行分类处理，若前22位完全一样的图片新增一列存放到一起Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请问我想批量导入一些图片，这批图的文件名有23位数字字母组成，现在需要对其进行分类处理，若前22位完全一样的图片新增一列存放到一起  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123242)

--  作者：q1156741089
--  发布时间：2018/8/10 15:03:00
--  请问我想批量导入一些图片，这批图的文件名有23位数字字母组成，现在需要对其进行分类处理，若前22位完全一样的图片新增一列存放到一起
请问我想批量导入一些图片，这批图的文件名有23位数字字母组成，现在需要对其进行分类处理，若前22位完全一样的图片则新增一列存放到一起

--  作者：有点甜
--  发布时间：2018/8/10 15:25:00
--
Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim name As String = FileSys.GetName(dlg.FileName)
    If name.length >= 23 Then
        Dim str As String = name.SubString(0,22)
        Dim dt As DataTable = DataTables("表A")
        Dim fdr As DataRow = dt.Find("第一列 = \'" & str & "\'")
        If fdr Is Nothing Then fdr = dt.AddNew
        fdr("第一列") = str
        Dim ls = fdr.lines("第二列")
        ls.add(name)
        fdr.lines("第二列") = ls
    End If
End If