Foxtable(狐表)用户栏目专家坐堂 → [原创] 设计DataColChanged代码报错 找不到原因了 求助


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

主题:[原创] 设计DataColChanged代码报错 找不到原因了 求助

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


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
[原创] 设计DataColChanged代码报错 找不到原因了 求助  发帖心情 Post By:2011/10/7 13:01:00 [显示全部帖子]

有两个表 一个现金主表 一个现金明细

现金主表的DataColChanged时间代码

Select Case e.DataCol.Name
    Case "入账","出账金额"
        Dim dr As DataRow
        Dim drs As List(of DataRow)
        dr = e.DataTable.Find("[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") '找出上一行
        If dr Is Nothing Then '如果没有找到上一行,说明本行就是第一行
            e.DataRow("余额") = e.DataRow("入账") - e.DataRow("出账金额")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("余额") = drs(i-1)("余额") + drs(i)("入账") - drs(i)("出账金额")
        Next 
End Select

参照流水账

明细表的DataColChanged代码

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "数量","单价"
        If dr.IsNull("数量") OrElse dr.IsNull("单价") Then '如果数量或单价为空
           
        Else
            dr("价格") = dr("数量") * dr("单价")
        End If
End Select

If e.DataCol.Name = "价格"
    Dim Filter As String = "[编号] = '" & e.DataRow("编号") & "'"
    Dim drs As List(Of DataRow) = DataTables("现金主表").Select(Filter)
    For Each cz As DataRow In drs
        cz("出账金额") = DataTables("现金明细").Compute("Sum(价格)","[编号] = '" & e.NewValue & "'")
    Next
End If

现在重置明细表的价格列就报错 也找不到什么原因了 特来上论坛求助

附件已上传 希望前辈能够给予指点

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:财务软件初稿.rar


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


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/8 12:21:00 [显示全部帖子]

谢谢 已经解决了

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


加好友 发短信
等级:婴狐 帖子:12 积分:171 威望:0 精华:0 注册:2011/10/7 12:51:00
  发帖心情 Post By:2011/10/16 9:33:00 [显示全部帖子]

非常感谢


 回到顶部