VFP Grid表格控件实现回车换行和相关列自动计算

VFP Grid表格控件实现回车换行和相关列自动计算

步骤：
1.一个表格控件Grid1与一个实际表相关联.
2.列1:数量;列2:单价;列3:金额;当输入数量按回车键后,光标换到下一行,同时金额自动计算:单价*数量.
3.
(1)
列1的text1的KeyPress事件下键入：
LPARAMETERS nKeyCode,nShiftAltCtrl &&系统默认代码
if nKeyCode=13 &&如果按回车键
KeyBoard"{DnArrow}" &&光标下移
KeyBoard"{LeftArrow}" &&光标左移;如果不加这一行代码,光标会落在下一行的右边一列.
**nodefault &&清除系统默认过程;如果加上它,自动计算就不计算了.
endif
(2)
表格控件Grid1的AfterRowColChange事件键入:
LPARAMETERS nColIndex &&系统默认代码
repl 金额 with 数量*单价 &&自动计算金额
thisform.Grid1.refresh &&表格控件刷新
4.其它相关实现
(1)数量和金额的总合计:
在列1的Text1的Vaid过程中键入:
sum 数量,金额 to sl,je &&当键入数量换行后会计算合计数量和金额
https://www.wendangku.net/doc/a516267537.html,bel1.caption="总数量:"+str(sl)+"总金额:"+str(je,10,2) &&显示总数量,总金额
(2)在表格中每隔5行为行加背景颜色.
在Grid1表格控件的Init过程中键入:
this.setall("DYNAMICBACKCOLOR","IIF(RECNO()%5=0,RGB(255,255,0),RGB(255,255,255))","COLUMN")