我在表单中加入了一个grid控件，在beforerowchange中加入如下代码

SELECT jiemu
GO top
DO WHILE .not. EOF()
IF ALLTRIM(thisform.grid1.column1.text1.Value)=ALLTRIM(jiemu.节目编号)
thisform.grid1.column2.text1.Value=jiemu.节目名称
thisform.grid1.column4.text1.Value=jiemu.载体
thisform.grid1.column5.text1.Value=jiemu.零售价
EXIT
ENDIF
skip
ENDDO

thisform.grid1.column7.text1.Value=ROUND(thisform.grid1.column5.text1.Value*thisform.grid1.column6.text1.Value,2)
thisform.grid1.column8.text1.Value=ROUND(thisform.grid1.column3.text1.Value*thisform.grid1.column5.text1.Value,2)
thisform.grid1.column9.text1.Value=ROUND(thisform.grid1.column3.text1.Value*thisform.grid1.column7.text1.Value,2)
ENDIF
With ThisForm.ActiveControl
IF nColIndex>=9 &&判断当前焦点是否在Grid控件的最后一个字段上
KeyBoard "{DnArrow}" Plain &&是则下移一行
endif
ENDWITH

可是在敲回车键后，下一列中第７，８，９列的值默认为上一列的值，不知道为什么，哪位高手指点一下，

多谢！！！

thisform.grid1.column7.text1.Value=ROUND(thisform.grid1.column5.text1.Value*thisform.grid1.column6.text1.Value,2)
thisform.grid1.column8.text1.Value=ROUND(thisform.grid1.column3.text1.Value*thisform.grid1.column5.text1.Value,2)
thisform.grid1.column9.text1.Value=ROUND(thisform.grid1.column3.text1.Value*thisform.grid1.column7.text1.Value,2)
将此计算引用的控件值改为实际绑定的字段变量.试一试.

还是一样

DO WHILE .not. EOF()
IF ALLTRIM(thisform.grid1.column1.text1.Value)=ALLTRIM(jiemu.节目编号)
thisform.grid1.column2.text1.Value=jiemu.节目名称
thisform.grid1.column4.text1.Value=jiemu.载体
thisform.grid1.column5.text1.Value=jiemu.零售价
EXIT
ENDIF
skip
ENDDO
以上是什么意思？
grid控件与数据表绑定后，记录各行与grid各行自动显示。

上面还有三句

IF nColIndex=1
SELECT jiemu
GO top

ｇｒｉｄ所连接的表是jiemutemp，它是个空表，那几句的意思是如果在第一列中所输入的（节目单号）在jiemu表中能找到的话，第２列（节目名称），第三列（套数）能自动显示出来

我按你的方法,建一表和表单,运行后,并没有出现你的现象.
最后一列,回车后,下移一行,结果正确.没有出现两行数据一样的情况.

楼主，试试执行一下：set carry off