利用DrawCell

成功的每行显示图片

此主题相关图片如下：未命名.jpg

因为图片源是局域网

当图片源的电脑未开,或者局域网不稳定而未能联网

那麼项目就变得很卡

于是想过是,当图片源不能联通时,不执行显示图片代码

但加入了后无限卡住了

If e.Table.name = "排产窗_Table1" Then
    Dim ip As String =  "" & Tables("主页")(0, "图片")  & "\\" & ""
    Dim picip As String = "192.168.0.228" \'  "\\\\192.168.0.228\\img\\工艺图\\" \'"\\\\Jc82\\img\\工艺图\\" \'
    If Network.Ping("" & picip & "") Then
       
        If e.Col.Name = "PICT" Then
            If e.Row.IsNull("模号") = False Then
                If FileSys.FileExists(ip & e.Row("模号") & "-Q.jpg") = True Then
                    e.StartDraw
                    Dim img As Image = GetImage(ip & e.Row("模号") & "-Q.jpg")
                    e.Graphics.DrawImage(img, e.x, e.y,40,40)
                    e.EndDraw
                End If
            End If
        End If
    End If
End If

結果失败了

还有什麼方法可以在断网时,不执行DrawCell里的插图代码?

不用每次判断，启动的时候判断一下，将结果保存在全局变量中。

运行过程中用这两个事件检测：

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

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

另外最好不要直接在单元格绘图，而是用图片列管理图片。

另外最好不要直接在单元格绘图

原因是为啥?

那麼要每行都显示图片有啥方法?

用图片列管理图片能夠做到每行都显示嗎?

我想主要是效率问题吧，如果图片不大，没什么关系的。

自己能接受就行。