GRID增强专集2
出处:网络

另一个 类 grd 派生于 _grid

kao 怎么有点乱码?! 看来FOX9的 CLASS BROWSER有一点问题
*-- Class: grd (d:\yx\workshop\onair\粤信通用帐务_正本\lib\lib_粤信_表单部件1.vcx)
*-- ParentClass: _grid (d:\yx\workshop\onair\粤信通用帐务_正本\lib\lib_粤信_基本.vcx)
*-- BaseClass: grid
*-- Time Stamp: 11/23/04 04:20:07 PM
*
DEFINE CLASS grd AS _grid

Comment = "{!readonly}{zoom=0,0,1,1}"
HighlightRow = .F.
RowHeight = 26
GridLineColor = RGB(128,128,128)
_l记录列宽并恢复 = "恢复 = (.T.)"
Name = "grd"

PROCEDURE readonly_assign
LPARAMETERS vNewVal
*To do: Modify this routine for the Assign method
THIS.ReadOnly = m.vNewVal

this.AllowAddNew= not m.vNewVal
ENDPROC

PROCEDURE When
dodefault()

IF INLIST(this.RecordSourceType,0,1) AND !EMPTY(this.RecordSource) ;
AND this.ReadOnly=.f. AND this.AllowAddNew
*- grid行为扩展
*- 如grid的数据可修改(!readonly) 且 可增加(allowAddNew)
*- 那么，当进入grid时如无数据(EOF)，则自动新增一行

Select (this.RecordSource)
IF eof()
GO bottom
ENDIF

IF EOF()
append blank
IF RECCOUNT()=1 AND glIsField('序号')
REPLACE 序号 WITH RECCOUNT()
ENDIF
ENDIF
ENDIF

*this.refresh
ENDPROC

ENDDEFINE
*
*-- EndDefine: grd

[返回]

首页 | 设为首页 | 加入收藏 | 关于本站 | 友情链接 | 版权声明