一、如果要用回车键来实现也行,但只能在表格列Text的Keypress事件里设置,
而且设置后只有这一列可以接收敲回车键,否则要设置每一列 。
1. 表单的load事件中:
PUBLIC n
USE my_a
&&假设grid1的数据源是my_a
USE my_b in 0
&&假设grid2的数据源是my_b
2. 在grid1的AfterRowColChamge事件中
n=RECNO()
3. 在gric1的第一列Text1的KeyPress事件中:
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nKeyCode=13
SELECT my_b
APPEND FROM a FOR RECNO()=n
thisform.grid2.Refresh
SELECT my_a
ENDIF
二、用5楼的方法要简单一点
将上面3.里的代码改成放入命令按钮:
SELECT my_b
APPEND FROM a FOR RECNO()=n
thisform.grid2.Refresh
SELECT my_a
[
本帖最后由 qjbzjp 于 2010-4-28 09:21 编辑 ]