主题：图片解析问题

If e.Col.name = "图片解析"

    If e.Row.IsNull("图片存放") = False Then

        Dim se As String = e.Row("图片存放")

        'Output.Show(se)

        Dim sws As String() = se.split(vbcr)

        e.StartDraw()        

        For i As Integer = 0 To sws.length -1

            If FileSys.FileExists(ProjectPath & "Images\" & sws(i)) Then

                Dim img As Image = GetImage(sws(i))

                Dim IntW As Integer =Int(img.Width*e.Height/img.Height)

                Dim wid As Integer = e.Width

                e.Graphics.DrawImage(img,e.x + wid * i + 5 ,e.y,intW,e.height)                

            End If

        Next

        e.EndDraw()

    End If    

End If