foxpro中GRID常用属性

*重定义GRID的方法。
WITH thisform.grd名
.RecordSourceType=1 &&别名
.RecordSource=”数据表名” &&表源
.ColumnCount=2 &&列数=2
.column1.ControlSource=”表名.字段名1″
.column1.Width=62 &&第一列列宽
.column1.BackColor=RGB(243,239,154) &&第一列背景色
.Column1.Header1.caption=”表头说明”
.Column1.Header1.Alignment=2 &&居中
.column1.ReadOnly=.T. &&只读
.column2.ControlSource=”表名.字段名2″
.column2.Width=171 &&第二列列宽
.column2.BackColor=RGB(130,215,125) &&第二列背景色
.column2.ReadOnly=.F. &&读写
.Column2.Header1.caption=”表头说明”
.Column2.Header1.Alignment=2 &&居中
ENDWITH
下面的方法不是更好吗?
thisform.grd名.RecordSource=NULL
thisform.grd名.RecordSource=‘数据表名’

我通常是在表单内定义一个表单数据属性,然后以此来保存/恢复更换数据源前后的表格的部分设置内容。

Local m.i, m.ColumnName

With Thisform
.NumColumn=.Grid1.ColumnCount
For i=1 To .NumColumn
m.ColumnName=.Grid1.Columns(i).Name
.HColumn(i,1)=m.ColumnName
.HColumn(i,2)=.Grid1.&ColumnName..ControlSource
Endfor
EndWith

Thisform.Lockscreen=.T.
Thisform.Grid1.RecordSource=”
……..
With Thisform
For i=1 To .NumColumn
m.ColumnName=.HColumn(i,1)
If !Empty(.HColumn(i,2))
.Grid1.&ColumnName..ControlSource=.HColumn(i,2)
Endif
Endfor
EndWith

使用:
dele
pack
copy to temfile for !dele()
zap
appe from temfile
thisform.refresh()

 » 转载请注明来源:网络蛀虫小窝 » 《foxpro中GRID常用属性》
 » 本站地址:http://www.gomoth.com

标签: