下列示例使用 header 对象以及 caption 属性更改表格中第一个标头的标题。
将一个表格控件放在表单上。打开 customer 表，并在表格中显示表中的内容。
使用了 caption 属性为 cust_id 字段指定不同的标头标题(customer id)。将一个命令按钮放在表单上，以关闭该表单。
使用了 setall 方法，以及 dynamicbackcolor 属性，以指定记录的背景颜色。在表格中，如果一个记录的编号是偶数，则该记录的 dynamicbackcolor 属性为白色，否则dynamicbackcolor 为绿色。
close all && 关闭表和数据库
open database (home(2) + 'data\testdata')
use customer in 0 &&打开 customer 表
frmmyform = createobject('form') && 创建一个表单
frmmyform.closable = .f. && 禁止 window 弹出菜单
frmmyform.addobject('cmdcommand1','cmdmycmdbtn') && 增加命令按钮
frmmyform.addobject('grdgrid1','grid') && 增加表格控件
frmmyform.grdgrid1.left = 25 && 调整表格位置
frmmyform.grdgrid1.setall("dynamicbackcolor", ;
"iif(mod(recno(),2)=0,rgb(255,255,255) ;
, rgb(0,255,0))", "column") &&将白和绿的记录调换
frmmyform.grdgrid1.visible = .t. && 显示表格控件
frmmyform.cmdcommand1.visible =.t. &&显示 "quit" 命令按钮frmmyform.grdgrid1.column1.header1.caption = 'customer id'
frmmyform.show &&显示表单
read event && 启动事件程序
define class cmdmycmdbtn as commandbutton && 创建命令按钮
caption = '\<quit' && 给命令按钮增加标题
cancel = .t. && 默认取消命令按钮 (esc键)
left = 125 && 命令按钮列
top = 210 && 命令按钮行
height = 25 && 命令按钮高
procedure click
clear event && 终止事件程序，关闭表单
close all && 关闭表和数据库
enddefine