图1

图2
说明：图1 是用EXCEL的截图 图2 是VFP9中的GRID的截图 现在我想在VFP9中的GRID中显示EXCEL中的哪种背景颜色 有字的就显示 没有的不显示
求代码 谢谢 我的QQ29636150

设置整列或整行的背景色容易解决，设置单个单元格的背景色有点难度。记得好象在梅子论坛中有这方面的帖子，建议楼主先搜索一下。

在表格中用SETALL方法试下

是的 设置单个单元格的背景色有点难度。

选中单元格的颜色设置
THIS.SETALL("selectedbackcolor",RGB(0,0,0),"textbox")

此事易尔，在表单的Init事件中加入如下代码即可：

FOR I=1 TO FCOUNT("C1")  &&假设表文件名为“C1.DBF”
   字段名=FIELD(I)  &&按列提取出字段
   WITH This.Grid1
      .Columns(I).DynamicBackColor="IIF(!EMPTY(&字段名),RGB(128,255,128),RGB(255,255,255))"  &&只要字段不为空就对背景着色
   ENDWITH
NEXT

收到的鲜花

• 月沐庭轩 于 2012-12-13 20:02 送鲜花  5朵   附言：我很赞同

6楼的方法值得欣赏和学习！因为，如果把整表的字段全部放在表格上，这样做是可行的。很好用。
但有时候会出现特殊情况：比如：grd 列数量小于表的列数，并且排序次序并不和表列完全一致时，
可能不会出现预期效果，或出错等。因此，在你的基础上，做了个小扩展，扩大了一点通用范围：
不再依赖原表，只与 grd 结构有关.比如：
 
with thisform.grid1
     FOR I=1 TO .columncount
     cmm=".column"+alltrim(str(i))+".controlsource"
     ct=&cmm
     .Columns(I).DynamicBackColor="IIF(!empty(&ct),RGB(128,255,128),RGB(255,255,255))"
     next
 endwith （仅供参考，不当之处敬请指正）

我正想补充呢，被你占先了。

7 8楼 我在表单INIT事件中用怎么是一闪而过

你是不是把这个表单单独编成EXE，脱离FoxPro在用啦？如果在VFP环境中的话，绝对不可能一闪而过的。