请各位大师指教：表单form上有2张表。表1中有若干行数据，当光标移动到其中一行数据时，按回车键确定，把表1中选定的那行数据添加到表2上。问题1：如何将表1上选定的那行数据添加到表2上，而不是将表1上所有的数添加到表2上？问题2：如何让“按回车键”实现表1的数据添加到表2

这有个问题:"当光标移动到其中一行数据时,按回车键确定",这样要处理所有列了,因为光标可以在不同列上回车,要取得回车键再处理,所在这样比较烦,还不如,用一个按钮,选 中一行,单击按钮添加这一行.这样要简单得多.

.............



[ 本帖最后由 茵梦湖 于 2010-4-27 21:43 编辑 ]

什么按钮，在那添加

楼主要的就是这个效果：我这里有个软件有此功能，但代码我也不清楚，高手给解答吧。

在表1捕捉用户按键，若是回车键则提示用户确认是否要将当前行添加到表2，确认后就将表1的当前记录添加到表2中，然后刷新表2。

一、如果要用回车键来实现也行，但只能在表格列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 编辑 ]

不错！