主题：通过代码如何往[图片]字段添加多个图片文件?

一次可以加入多个图片的代码：

Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.filter = "|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim fls As String = Tables("表A").Current("图片")
    For Each fl As String In dlg.FileNames
        If fls >"" Then
            fls = fls & vbcrlf
        End If
        fls = fls & fl
    Next
    Tables("表A").Current("图片") = fls
End If