主题：一个款号有多个,文件 文件，图片前缀名字跟款号名一致时，怎样自动批量插入

  你做一个按钮，然后运行代码。

Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
    For Each file As String In FileSys.GetFiles(dlg.SelectedPath)
        Dim fullname As String = FileSys.GetName(file)
        Dim ext As String = fullname.Substring(fullname.IndexOf("."))
        Dim name As String = left(fullname, 5)
        Dim fdr = DataTables("表A").Find("款号 = '" & Name & "'")
        If fdr IsNot Nothing Then
            Select Case ext
                Case ".jpg"
                    fdr("照片") &= fullname & vbcrlf
                    FileSys.CopyFile(file, DataTables("表A").DataCols("照片").DefaultFolder & "\" & fullname, True)
                Case ".xls", ".xlsx"
                    fdr("资料") &= fullname & vbcrlf
                    FileSys.CopyFile(file, DataTables("表A").DataCols("资料").DefaultFolder & "\" & fullname, True)
            End Select
        End If
    Next
End If

 这样

Dim filePath As String = "d:\"

For Each file As String In FileSys.GetFiles(filePath)
    Dim fullname As String = FileSys.GetName(file)
    Dim ext As String = fullname.Substring(fullname.IndexOf("."))
    Dim name As String = left(fullname, 5)
    Dim fdr = DataTables("表A").Find("款号 = '" & Name & "'")
    If fdr IsNot Nothing Then
        Select Case ext
            Case ".jpg"
                fdr("照片") &= fullname & vbcrlf
                FileSys.CopyFile(file, DataTables("表A").DataCols("照片").DefaultFolder & "\" & fullname, True)
            Case ".xls", ".xlsx"
                fdr("资料") &= fullname & vbcrlf
                FileSys.CopyFile(file, DataTables("表A").DataCols("资料").DefaultFolder & "\" & fullname, True)
        End Select
    End If
Next

 Dim filePath As String = "d:\"

For Each file As String In FileSys.GetFiles(filePath)
    Dim fullname As String = FileSys.GetName(file)
    Dim ext As String = fullname.Substring(fullname.IndexOf("."))
    Dim name As String = left(fullname, 5)
    Dim fdr = DataTables("表A").Find("款号 = '" & Name & "'")
    If fdr IsNot Nothing Then
        Select Case ext
            Case ".jpg"
                If fdr("照片").IndexOf(fullname) = -1 then
                    fdr("照片") &= fullname & vbcrlf
                    FileSys.CopyFile(file, DataTables("表A").DataCols("照片").DefaultFolder & "\" & fullname, True)
                End If
            Case ".xls", ".xlsx"
                If fdr("资料").IndexOf(fullname) = -1 Then
                    fdr("资料") &= fullname & vbcrlf
                    FileSys.CopyFile(file, DataTables("表A").DataCols("资料").DefaultFolder & "\" & fullname, True)
                End If
        End Select
    End If
Next

具体的问题，可以另开帖子提问，还有就是最好上传足够的测试数据。