主题：[求助]求助一个智能输入的问题

If e.keycode = keys.Enter Then
   ' Tables("表A").FinishEditing()
    Tables("表A").Current("第一列") = e.Table.Current("县市")
    Tables("表A").Current("第二列") = e.Table.Current("区号")
    Tables("表A").Current("第三列") = e.Table.Current("邮编")
    Forms("窗口1").close()
End If

mr725  你的代码也不行，我刚才测试了一下。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目20.table

狐爸，你发的程序运行一切正常，可以告诉我这个运行机制的原理吗？？？谢谢

看我的代码就知道了

为什么要在 KeyDownEdit  里面加上如下代码：

 

 If Forms("窗口1").Opened Then

            e.Cancel = True

            e.Text = t.Current("县市")

            Tables("表A").Current("第二列") = t.Current("区号")

            Tables("表A").Current("第三列") = t.Current("邮编")

            Forms("窗口1").close()

           e.Table.FinishEditing

        End If

 

还有       e.Text = t.Current("县市")

            Tables("表A").Current("第二列") = t.Current("区号")

   为什么会不同的？？？？

 

还有就是上面的代码和窗口1 里面的 KeyDown  事件是要求对应的吗？？？

如下：

 

If e.keycode = keys.Enter Then
    Tables("表A").FinishEditing()
    Tables("表A").Current("第一列") = e.Table.Current("县市")
    Tables("表A").Current("第二列") = e.Table.Current("区号")
    Tables("表A").Current("第三列") = e.Table.Current("邮编")
       Forms("窗口1").close()
End If

1、其实你按回车键，执行的就是此处的代码，而不是窗口中Table控件的Keydown事件

2、如果不是：

 

 e.Text = t.Current("县市")

 

而是：

 

 Tables("表A").Current("第一列") = t.Current("县市")

 

那么结束编辑的时候，由于编辑框的内容是空白，会替换掉第一列的内容。

 

没事了。

 

确实会出错：

窗口打开后，在窗口表中点击第二列或非第一列，再按Enter，就会出错···