增加图片代码：

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\\"
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
        piv.AddFile(dlg.FileName.SubString(pth.Length))
    Else \'如果不是
        FileSys.CopyFile(dlg.FileName, pth & FileSys.GetName(dlg.FileName))
        piv.AddFile(FileSys.GetName(dlg.FileName))
    End If
End If

重命名 e.Form.Controls("学生姓名") 名称

请教代码怎样改？谢谢！

出现错误

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2016.4.6.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
startIndex 不能大于字符串长度。
参数名: startIndex

上面的代码，不会报你3楼的错。

Dim dlg As New OpenFileDialog
Dim piv As WinForm.PictureViewer = e.Form.Controls("PictureViewer1")
dlg.Filter= "图形文件|*.bmp;*.jpg;*.gif"
If dlg.ShowDialog = DialogResult.OK Then
    Dim pth As String = ProjectPath & "Attachments\\"
    Dim fname As String = e.Form.Controls("学生姓名").Text
    If dlg.FileName.ToLower.StartsWith(pth.ToLower) Then \'如果文件来自Attachments目录
        FileSys.RenameFile(dlg.FileName, pth & fname)
        piv.AddFile(fname)
    Else \'如果不是
        FileSys.CopyFile(dlg.FileName, pth & fname)
        piv.AddFile(fname)
    End If
End If