窗体增加一行TABLE后，报错，请教高人指点 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗体增加一行TABLE后，报错，请教高人指点

共有9802人关注过本帖树形打印复制链接主题：窗体增加一行TABLE后，报错，请教高人指点

hiliuyong

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：436 积分：5082 威望：0 精华：0 注册：2012/3/27 15:33:00

窗体增加一行TABLE后，报错，请教高人指点 发帖心情

Post By：2012/4/13 12:12:00 [只看该作者]

窗体的按钮代码

Tables("tblBillMain").AddNew()

If e.Form.Controls("txtCust")="" Then
Return

End If

Table的DatarowAdding里面的代码是

e.DataRow("Riqi") = Date.Today()
e.DataRow("Creater") = _UserName
e.DataRow("CreatTime") = Date.now()

Dim bh As String = Format(e.DataRow("CreatTime"),"yyyyMMddhhmmss") '取得编号的8位前缀
e.DataRow("Zongdanhao") = bh

用狐表“增加行”可以正常添加

但是有窗体按钮，则报错

但是可以增长添加行

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/4/13 12:22:00 [只看该作者]

你发的图片看不到，图片要上传才行。

另外：

If e.Form.Controls("txtCust")="" Then
Return
End If

应该改为：

If e.Form.Controls("txtCust").Value Is Nothing Then
Return
End If

[此贴子已经被作者于2012-4-13 12:25:22编辑过]

程兴刚

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7258 积分：40773 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/4/13 12:23:00 [只看该作者]

1、e.Form.Controls("txtCust")="" Then
改为：Forms("窗口名").Controls("txtCust")="" Then '窗口名自己调整，因为增加行后活动焦点跑到了表里面，这里用e参数找不到窗口。
2、将表的DatarowAdding里面的代码放到DataRowAdded事件里面，您用错了事件，一定要看清楚下面的事件说明里面的之前、正在、之后之类的说明，这些文字对于您是否正确选择事件相当关键！