主题：求用按钮 上传文件的代码

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls|Word文件|*.doc|Access文件|*.mdb" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
    dim r as row = tables("xxx").Current
    if r.isnull("yyy") Then
        r("yyy") = dlg.FileName
    else
        r("yyy") = r("yyy") & vbcr & dlg.FileName
    end if
End If

http://www.foxtable.com/help/topics/1406.htm