[原创]菜鸟也能用foxtable开发自己的应用程序，图文视频教程[连载结束，整理至1楼] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

第五章第二部分：分析会员充值表还有没有需要完善的事件

请大家看一下案例文件，当我们在会员表主表的关联表[会员表.会员充值表]增加一条数据的时候，是没有问题的。但是如果我们在会员充值表新增一条数据却出现这样的错误？

看一下图片演示：

此主题相关图片如下：关联错误.gif

到底是什么原因呢？

让我们再详细分析一下发生错误的事件 datachanged

Select Case e.DataCol.Name

Case "支付金额" ,"赠送金额","会员卡号"

e.DataRow("备注") = Date.Today & user.Name & "为" & e.DataRow.GetParentRow("会员表")("会员姓名") & "执行" & e.DataRow("操作类型") & "," & "金额为" & e.DataRow("充值金额")

' End If

End Select

这段代码看似没有什么问题，但是为什么会出现错误呢？

e.DataRow.GetParentRow("会员表")("会员姓名")

是获取相对应父表的数据，而这个时候子表的会员卡号还没有产生呢？

所以会出现这样的错误，

解决方法：

此主题相关图片如下：1.png

为了便于理解也便于日后查阅的方便，我们采用方法2.

代码如下：

Select Case e.DataCol.Name

Case "支付金额" ,"赠送金额","会员卡号"

'If e.DataRow.IsNull("支付金额") Then

If e.DataRow.IsNull("支付金额") OrElse e.DataRow.IsNull("会员卡号") Then '这行代码是随后添加的,主要为了防止出现父表没有数据的时候,出现的错误提示

e.DataRow("备注") = Nothing

Else

'MessageBox.show(e.DataRow.GetParentRow("会员表")("会员姓名") )

e.DataRow("备注") = Date.Today & user.Name & "为" & e.DataRow.GetParentRow("会员表")("会员姓名") & "执行" & e.DataRow("操作类型") & "," & "金额为" & e.DataRow("充值金额")

' End If

End Select

这样就轻松解决了这个问题。

接着，我们用同样的方法解决掉，会员消费表，会员消费明细表这两张表的遗留问题。

[此贴子已经被作者于2013-1-26 23:58:48编辑过]

主题：[原创]菜鸟也能用foxtable开发自己的应用程序，图文视频教程[连载结束，整理至1楼]