[求助]请问增加一行为何出现这样的错误提示？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问增加一行为何出现这样的错误提示？

共有2709人关注过本帖树形打印复制链接主题：[求助]请问增加一行为何出现这样的错误提示？

ztlyz2004

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

加好友

发短信

等级：幼狐帖子：122 积分：1245 威望：0 精华：0 注册：2012/2/3 14:30:00

[求助]请问增加一行为何出现这样的错误提示？ 发帖心情

Post By：2014/10/16 10:51:00 [只看该作者]

此主题相关图片如下：搜狗截图20141016104849.png

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/10/16 10:53:00 [只看该作者]

贴出你datacolchanged的代码。

ztlyz2004

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

加好友

发短信

等级：幼狐帖子：122 积分：1245 威望：0 精华：0 注册：2012/2/3 14:30:00

Post By：2014/10/16 11:01:00 [只看该作者]

datacolchanged代码在哪儿找得到

Bin

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

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/10/16 11:03:00 [只看该作者]

订单信息表,表属性,DataColChanged事件

项目不是你开发的?

ztlyz2004

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

加好友

发短信

等级：幼狐帖子：122 积分：1245 威望：0 精华：0 注册：2012/2/3 14:30:00

Post By：2014/10/16 11:20:00 [只看该作者]

Select Case e.DataCol.Name
    Case "订单号"
        If e.DataRow.IsNull("订单号") = False Then '如果已经输入订单编号
            If e.DataRow.GetChildRows("订单明细").Count = 0 Then '而且无订单明细
                Dim dr As DataRow = DataTables("订单明细").AddNew()
                dr("订单号") = e.DataRow("订单号")
            End If
        End If
End Select

If e.DataCol.name = "审核" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("订单信息")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("订单明细")
        Dim cnt As Integer
        For Each cr As DataRow In crs
            If cr("审核") = True
                cnt = cnt + 1
            End If
        Next
        pr("审核") = (crs.Count = cnt)
    End If
End If