此主题相关图片如下：问题.jpg

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

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

2、按键修改的意思是当TextBox1显示后，点击TextBox1，然后在其显示的数据上进行修改，修改好后按修改作为确认并写入，请问该怎么写这个代码？

不是我想要的，我这里有两个按键，

一个是增加 它的作用是当TextBox1输入数据时，点击增加，A表自动增加一行数据，然后将TextBox1的数据填入A表

还有一个是修改 它的作用是当点击窗口中表A时，将当前行的数据显示给TextBox1，然后可以在TextBox1，最后点击修改后写入表A当前行

 一样的意思，自由变通。

 你上传的例子根本就没有窗口。

 看2楼的例子，代码一样啊，最基本的代码了啊。

 看不懂代码的，先去看一下视频教程 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=67187

这个代码好像不对

应该表事件里有问题

我的新增按键代码如下：

Dim nr As Row = Tables("表A").AddNew
 nr("第一列") = e.Form.Controls("TextBox1").Text

修改按键代码如下：

If Tables("表A").Current IsNot Nothing Then
Tables("表A").Current("第一列") =e.Form.Controls("TextBox1").Text
   End If

表事件代码如下：

If Forms("窗口1").Opened Then
    If e.Table.Current IsNot Nothing Then
        Forms("窗口1").controls("Textbox1").Text = e.Table.Current("第一列")
    End If
End If

出来的结果是，新增按键只增加行，第二行代码无效，修改代码有效

如果把事件代码去掉后，按键代码都有效，但是TextBox1显示无效（不是跟着行走）

以上窗口代码都没有写

有什么办法解决吗？

而且如果加了表事件，TextBox1显示的是已经录入的数据，但是我要求空白

新增

Dim str As String = e.Form.Controls("TextBox1").Text

Dim nr As Row = Tables("表A").AddNew
nr("第一列") = str