Foxtable(狐表)用户栏目专家坐堂 → 查询表流水余额代码在哪里执行


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

主题:查询表流水余额代码在哪里执行

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


加好友 发短信
等级:一尾狐 帖子:410 积分:3682 威望:0 精华:0 注册:2017/4/8 8:59:00
查询表流水余额代码在哪里执行  发帖心情 Post By:2018/7/18 15:03:00 [显示全部帖子]

Select Case e.DataCol.Name
    Case "je3","fk1"
        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("ye1") = e.DataRow("je3") - e.DataRow("fk1")
            dr = e.DataRow
        End If
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey"), "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
            drs(i)("ye1") = drs(i-1)("ye1") + drs(i)("je3") - drs(i)("fk1")
        Next   
End Select

在加载后事件中执行提示不是DataCol.不是xxxx成员,应该诉在哪里呢事件叫


 回到顶部