主题：列表达式

老师:

     我作的表列中的表达式的值,不显示.每次,要把已经录入的前面的数据.删除或重录一次,才能显示数据.为什么??

老师:

    我作的的单位的各种账表.每次都进入这个系统,都 要重置列吗??有自动生成,并保存的方法吗?

老师: 

    请您给改一下.我想把实务账的 "号_实务"改成和总账表的"号_总账"一样的,可以在下一行自动加1的序号,请老师.改一下,并告知我作法!

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:关联2018年新账4.table

对啊.我也这是么改的.因为现在要作的是明细表的列.所以.我改成了如下:

Dim max As String = e.DataTable.Compute("max(号_实务])")
e.DataRow("号_实务") = max+1

为什么出现5楼的错误呢

?要怎么改

老师:

     请您看一下.我7楼上传的表格中,明细账的后三列 .要求计算从年初.到年末的每个人累计时时的结存张数.金额和废piao.在明细账的表属性里有一个是在您写的代码基础上改过的代码！可是执行起来不对啊！请问这个代码要怎么写啊?

以下是有问题的代码

 Select Case e.DataCol.Name
   
    Case "站结存废piao","站结存张数","站领入_张数","站_上年结转张数","站售出_张数","站售出_金额","站售出_废piao","站结存金额"
       
        Dim dr As DataRow
       
        Dim mr As DataRow = e.DataRow
       
        Dim drs As List(of DataRow)
       
        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [站_日期] = '" & mr("站_日期") & "'", "[_SortKey] Desc")
       
        If dr Is Nothing Then '如果没有上一行,说明本行就是同产品的第一行
           
            mr("站结存张数") = mr("站_上年结转张数") + mr("站领入_张数") - mr("站售出_张数")- mr("站售出_废piao")
           
            mr("站结存金额") = mr("站售出_金额")
           
            mr("站结存废piao") = mr("站售出_废piao")
            dr = mr
           
        End If
       
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [站_日期] = '" & dr("站_日期") & "'")
       
        For i As Integer = 1 To drs.Count - 1 '重算余下行的余额
           
            drs(i)("站结存张数") = drs(i-1)("站结存张数") + drs(i)("站_上年结转张数") + drs(i)("站领入_张数") - drs(i)("站售出_张数")- drs(i)("站售出_废piao")
           
            drs(i)("站结存金额") = drs(i-1)("站结存金额") + drs(i)("站售出_金额")
            drs(i)("站结存废piao") = drs(i-1)("站结存废piao") + drs(i)("站售出_废piao")
        Next
       
End Select

此主题相关图片如下：yxj41q27{oj48zy7{@6)@~v.png

老师:

      上图是明细账的页面,同一姓名的人每天发生的张数,金额,废piao不一样,需要手工录入当天的发生额,后面三列要自动算出,每人的从年初至当天的累计张数,金额,废piao的数量.但现在只算出的是个人当天发生的一行的累计 ,请老师给改一下代码.