谁知道改变表格底纹的代码
表单上有一份表格,希望点击某行的时候,改行变成另一颜色底纹,怎么写代码?谢谢大家
grid的init事件加入：
this.SetAll("backcolor",RGB(140,170,220), "header")
this.SetAll("alignment",2,"header")
this.SetAll("alignment",2,"column")
thisform.Grid1.SetAll("DynamicBackColor", "IIF(MOD(RECNO( ), 2)=0, RGB(255,255,255) , RGB(227,227,227))", "Column")&&这是一运行时显示一行灰色一行白色很好看的。
grid的afterRowcolchange加入以下：
Mcurrec=allt(str(recn()))
this.setall("dynamicbackcolor",'IIF(RECNO()=&Mcurrec.,RGB(236,236,236),RGB(255,255,255))')
thisform.refresh&&这是焦点移至某一行显示的颜色。