Foxtable(狐表)用户栏目专家坐堂 → 两个sql表,审批的问题?


  共有1534人关注过本帖树形打印复制链接

主题:两个sql表,审批的问题?

帅哥哟,离线,有人找我吗?
manyifuwu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:二尾狐 帖子:500 积分:5397 威望:0 精华:0 注册:2009/2/5 13:09:00
两个sql表,审批的问题?  发帖心情 Post By:2019/9/18 19:54:00 [只看该作者]

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2019.9.19.1
错误所在事件:表,财务_Table1,DataColChanged
详细错误信息:
调用的目标发生了异常。
未将对象引用设置到对象的实例。

  初始没有加载这两个表,窗口的两个是sql表,:财务_Table2是客户表,财务_Table1 是订单表。希望:客户有多个订单。所有订单都审后,该客户才审批。怎么实现呢?谢谢!

 

代码是

If e.DataCol.name = "审批" Then
    Dim pr As DataRow = e.DataRow.GetParentRow("财务_Table2")
    If pr IsNot Nothing Then
        Dim crs As List(of DataRow) = pr.GetChildRows("财务_Table1")
        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

 

'Select Case e.DataCol.name
    'Case "审批"
        'Dim drs As List(Of DataRow) = DataTables("财务_Table2").Select("[派单id] = '" & e.DataRow("派单id") & "'")
        'If drs.count = 0 Then
            'Dim dr = DataTables("财务_Table2").addnew
            'dr("审批") = e.DataRow("审批")
        'Else
            'For Each dr As DataRow In drs
                'dr("审批") = e.DataRow("审批")
            'Next
            'DataTables("财务_Table2").save   '即时
            'If Forms("财务").opened
                'Dim r As Row = Tables("财务_Table2").Current
                'r.DataRow.Load()
            'End If
        'End If
'End Select
'

[此贴子已经被作者于2019/9/18 19:54:44编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106665 积分:542508 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/9/19 9:00:00 [只看该作者]

If e.DataCol.name = "审批" Then
  e.DataRow.save
  dim c1 as integer = e.datatable.sqlcompute("count(审批)", "审批=1 and 编号='" & e.DataRow("编号") & "'")
  dim c2 as integer = e.datatable.sqlcompute("count(审批)", "编号='" & e.DataRow("编号") & "'")
    Dim pr As DataRow = datatables("财务_Table2").find("编号='" & e.DataRow("编号") & "'")
    If pr IsNot Nothing Then
        pr("审批") = (c1 = c2)
    End If
End If

 回到顶部