以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  流水帐问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=24220)
--  作者：kmzb56
--  发布时间：2012/10/8 15:31:00
--  流水帐问题
   我仿样式列子做了流水帐，代码没变，并加了样式，同时我用同样的代码做了另一个银行流水帐，可是发现另一个不能用，功能不能实现，余额不能变化，样式不能生成。请问是什么原因？是不是定义的变量冲突？不同的表变量可以用一个么？
--  作者：lin_hailun
--  发布时间：2012/10/8 15:44:00
--  
 把例子发上来看看。
--  作者：kmzb56
--  发布时间：2012/10/8 15:48:00
--  跟学习实例一样的呀
 

农行明细表_DataColChanged

 

Select Case e.DataCol.Name

    Case "收入","支出"

        For Each dr As DataRow In e.DataTable.Select("[_SortKey] >= " & e.DataRow("_SortKey"))

            Dim Val1 As Double = e.DataTable.Compute("Sum(收入)","[_SortKey] <= " & dr("_SortKey"))

            Dim Val2 As Double = e.DataTable.Compute("Sum(支出)","[_SortKey] <= " & dr("_SortKey"))

            dr("余额") = Val1 - Val2

        Next

End Select

 

农行明细表_DataRowDeleting

 

e.DataRow("收入") = 0

e.DataRow("支出") = 0

 

农行明细表_AfterMoveRow

 

Dim Key As Decimal

Dim Index As Integer

Dim dc As DataCol

Index = Math.Min(e.OldIndex, e.NewIndex)

Key = e.Table.Rows(Index)("_SortKey")

dc = e.Table.DataTable.DataCols("收入")

dc.RaiseDataColChanged("[_SortKey] >= " & Key)

 

农行明细表_DrawCell

 

If e.Col.name="收入" Then

e.Style="收入样式"

End If

另外一个表是一样的代码。
--  作者：blackzhu
--  发布时间：2012/10/8 15:54:00
--  
重置列一下
--  作者：lin_hailun
--  发布时间：2012/10/8 15:56:00
--  
 代码看不出对错，做好有例子。
--  作者：kmzb56
--  发布时间：2012/10/8 16:01:00
--  

同一个项目里有两个同样结构的表，同样的代码，只是表名不一样，一个可以，另一个不行。不知哪里出错，重置例了也不行。
--  作者：狐狸爸爸
--  发布时间：2012/10/8 16:21:00
--  
做个不行的例子发上来
--  作者：kmzb56
--  发布时间：2012/10/8 16:25:00
--  
在我的项目里，我只复制了代码上来，结构与帮助文件的例了一样。
--  作者：kmzb56
--  发布时间：2012/10/8 16:28:00
--  
我想确定一样，同一个项目里做同样结构的表，同样的代码，有两个表，变量这些会不会冲突，我反复核实跟帮助文件的例子一样。结构一样，代码一样。
--  作者：kmzb56
--  发布时间：2012/10/10 16:45:00
--  
已解决，我也不知为啥，买了开发版可以的。