If e.Col.Name = "图片" Then
If xiantu = True Then
If e.Row.IsNull(e.Col.Name) = False Then
Dim cs As new List(of String)
cs = e.Row.DataRow.Lines(e.Col.Name)
Dim js As String() = cs.ToArray()
e.StartDraw
Dim str As String = "\\10.100.100.229\foxtable资料\图片\" & js(0).trim("\")
Dim str1 As String = str.Insert(str.LastIndexOf("."), "--")
If FileSys.FileExists(str1) Then
e.Graphics.DrawImage(getImage(str1),e.x +1,e.y+1,e.Width - 2,e.Height - 2)
e.Text = ""
ElseIf FileSys.FileExists(str) Then
Dim img As image = getImage(str)
Dim bmp As New bitmap(img, 30, 40)
bmp.save(str1)
bmp.Dispose
If FileSys.FileExists(str1) Then
e.Graphics.DrawImage(getImage(str1),e.x +1,e.y+1,e.Width - 2,e.Height - 2)
e.Text = ""
Else
e.Text = "待下载"
End If
End If
e.EndDraw
Else
e.Text = e.Row("汇总")
End If
End If
附件是错误文件
加好友 
发短信
Post By：2022/11/11 15:28:00 [只看该作者]
还是不行,那就是在保存的时候出错了