我的grid数据源表为：eedt.dbf
字段：名称、规格、数量、定价、总价……
我现在想在grid的数量列输入数量时，
总价通过"年价*数量"得到，并且直接在焦点变化时grid刷新总价，
于是我在grid的afterrowcolchange写入
REPLACE  总价 WITH 年价*数量
thisform.Refresh

此时出现一个情况，
当在所改变“数量”的同一记录行获得焦点变化时，能正确计算出总价，并且刷新。。
当获得焦点的单元格不在改变数量的记录行上时，则不能计算出总价，仍然显示为0。00
求解决方法！

在 grid 的数量列的column的text1的 lostfocus 加上条件限制：试试。比如
if len(alltrim(名称))>0
   REPLACE  总价 WITH 年价*数量
rndif
   


[ 本帖最后由 qingfameng 于 2010-8-1 21:59 编辑 ]

试试：
REPLACE all 总价 WITH 年价*数量
thisform.Refresh

这样替换所有的话，虽能实现“总价”的刷新，
但是会让grid表直接跳到最后的记录行，
有没有办法既能实现“总价”刷新，
又能让焦点保留到所移动到的地方。而不是跳到最后！

你可以在总价列的 controlsource中填写 表达式啊

收到的鲜花

• 茵梦湖 于 2010-08-02 16:19 送鲜花  30朵   附言：我很赞同~

bh=RECNO()
REPLACE all 总价 WITH 年价*数量
GO bh
thisform.Refresh

5楼方法比较简单, 方便~
 

谢谢版主

.   .

[ 本帖最后由 qingfameng 于 2010-8-4 00:15 编辑 ]

不知是不是这样写入，我笨鸟新手！别笑！
thisform.grid1.Columns(8).controlsource=年价*数量
这样写入后，运行没问题，但是总价列全变空了，无数据显示！

6楼的方法是可行的，但是由于我的数据量较大，有近十万个记录行。。
这样REPLACE all 一次，所花的时间会很长，
有没有办法只替换修改了数量的记录行的总价。。