主题：[求助]合并单元格内绘制问题

直接给单元格设置图标

Dim g = Tables("表A").grid
Dim cs = g.GetCellRange(3, 3)
cs.Image = Getimage("d:\test.Ico")
If cs.style Is Nothing Then
    cs.style = g.Styles.add("test")
End If
cs.Style.ImageAlign = 1

你是用drawcell事件绘制的？那么绘制的时候，控制好坐标不就好了？

If e.Col.name= "删" Then
    e.StartDraw
    Dim count As Integer = e.Table.DataTable.Compute("count(_Identify)", "删 = '" & e.text & "'")
    e.Graphics.DrawImage(delimg1, e.x + 3,e.y + 3 + cint((20*count-delimg1.height)/2)) '绘制第一个图标
    e.EndDraw
End If