主题：[求助] 如何在单元格绘制图形！

我是做了一个,但是发现有问题,一是图形只是在第一行的第一格是画出,二是,如果有第二行,那第二行的图形还是会加到第一单元格中,也可能是我还没有参透其内容吧

看来只有一个办法,就是将所有的图形文件放在一个库中,然后每次根据需要从库中调一行数据到另一个表中,这样就能看到正确的图形了

发到这儿吧,请有兴趣的狐友看看,也许能起到引玉的作用呢,呵呵

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:如何在单元格绘制图形.table

是啊,我也有同感,如果能将绘图片放在单元格就好了,呵呵,或是将某列改为绘图板类型?

哦?你看看如何处理更方便?看来还是要有详细的帮助才行

if e.datarow("钢筋编号")= "5008"
    绘图代码， 同时绘制一个文字（见一楼）
end if


这样做?那要多少段啊,为何不用分段数据呢?

如是这样,那最好用一个线段,将一系列的点连接起来，参数Points为一个数组，指定所有要连接的点。

DrawLines(pen,Points)

可以参考这段代码
If e.Col.Name = "图例"  Then
   e.StartDraw()
 If e.Row("图例") > 0  Then
Dim points(3) As Point
points(0) = New Point(e.Row("x1") ,e.Row("y1"))
points(1) = New Point(e.Row("x11") ,e.Row("y11"))
points(2) = New Point(e.Row("x111") ,e.Row("y111"))
points(3) = New Point(e.Row("x2") ,e.Row("y2"))
e.Graphics.DrawLines(Pens.Green, points)
 End If
    e.EndDraw()
End If

学习

加上:e.x和e.y后,发现各行的图形就不会全挤在一个单元格中了,呵呵