\'-----设置照片框中图片的缩放模式 见说明:3.8.2.4.6.2.2.2 SizeMode
Dim pb As WinForm.PictureBox
pb = Forms("校车管理窗体").Controls("学生的班主任照")
pb.SizeMode = ImageSizeMode.StretchImage

\'--------------显示图片   见说明:3.8.2.4.6.2.3 事件
Dim pbx As WinForm.PictureBox = e.Sender
Dim r As Row = Tables("网络学生名册表").Current
If r IsNot Nothing Then
    pbx = Forms("校车管理窗体").Controls("学生的班主任照")
    If r("年级") * r("班别")> 0 Then
        Dim dr As DataRow = DataTables("网络校车基本信息表").Find(" 年级 = "& r("年级") &" And 班别 = "& r("班别") &" ")
        If dr IsNot Nothing Then
            If FileSys.FileExists( ProjectPath & "\\照片\\" & myDWDM & "\\" & dr("班主任_身份证号") & ".jpg" ) Then   \'如果此文件存在
                e.File =  ProjectPath & "\\照片\\" & myDWDM & "\\" & dr("班主任_身份证号") & ".jpg"
            Else
                If  dr("班主任_身份证号").SubString(16,1) Mod 2 = 1 Then
                    e.File =  ProjectPath & "\\照片\\01.jpg"
                ElseIf dr("班主任_身份证号").SubString(16,1) Mod 2 = 0 Then
                    e.File =  ProjectPath & "\\照片\\00.jpg"
                End If
            End If
        Else
        End If
    End If
End If

请教老师，这里显示照片，多绕了个弯子，照片就不显示了，请问有办法解决吗？