'Drawcell 事件
if e.row("第一列") < e.row("第二列") then
e.Graphics.FillRectangle(Brushes.Red,e.x,e.y, e.Width, e.Height)
end if