主题：批量插入图片怎么弄呢？

 Dim dlg As new OpenFileDialog
dlg.MultiSelect = True
If dlg.ShowDialog = DialogResult.OK Then
    Dim t As Table = Tables("表A")
    Dim path As String = t.cols("第十列").DataCol.DefaultFolder
    If path = Nothing Then path = ProjectPath & "attachment"
    For Each f As String In dlg.FileNames
        FileSys.CopyFile(f, path & FileSys.GetName(f), True)
        Dim nr As Row = t.addnew
        nr("第十列") = FileSys.GetName(f)
    Next
End If

做一个按钮，然后执行，即可。

或者你用具体实例说明你要做什么