- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- _SortKey的定义 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=53690)
-- 发布时间：2014/7/13 16:42:00
-- _SortKey的定义
老师：你好！
-- 发布时间：2014/7/13 16:43:00
--
_sortkey本来就是小数，有什么问题？
-- 发布时间：2014/7/13 16:51:00
--
在做自动编号时，要以整数类型。
-- 发布时间：2014/7/13 16:53:00
--
自动编号跟_Sortkey有什么关系？
http://www.foxtable.com/help/topics/0630.htm
http://www.foxtable.com/help/topics/2403.htm
-- 发布时间：2014/7/13 16:55:00
--
能否帮助修改一下附件中的资金账代码，
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:组合统计结果.table |
这些代码在SQL server 数据库中能运行，在内部数据源中出现错误。
-- 发布时间：2014/7/13 17:00:00
--
问题能不能说详细一点啊，哪个窗口，执行什么操作，报什么错？
-- 发布时间：2014/7/13 17:00:00
--
自动编号以解决，max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e
-- 发布时间：2014/7/13 17:07:00
--
Datacolchanged代码
If e.DataCol.Name = "日期" Then
If e.DataRow.IsNull("日期") Then
e.DataRow("编号") = Nothing
Else
Dim d As Date = e.DataRow("日期")
Dim y As Integer = d.Year
Dim m As Integer = d.Month
Dim Days As Integer = Date.DaysInMonth(y,m)
Dim fd As Date = New Date(y,m,1) \'获得该月的第一天
Dim ld As Date = New Date(y,m,Days) \'获得该月的最后一天
Dim bh As String = Format(d,"yy-MM") \'生成编号的前6位,4位年,2位月.
If e.DataRow("编号").StartsWith(bh) = False \'如果编号的前6位不符
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(编号)","日期 >= #" & fd & "# And 日期 <= #" & ld & "# And [_Identify] <> " & e.DataRow("_Identify")) \'取得该月的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(bh.Length+1,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("编号") = bh & "-" & Format(idx,"000")
End If
End If
End If
If e.DataCol.Name = "日期" Then
If e.NewValue Is Nothing Then
e.DataRow("编号") = Nothing
e.DataRow("银行账号") = Nothing
End If
End If
Select Case e.DataCol.Name
Case "日期","编号","收入","支出","余额","银行账号"
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("支出")+jcj
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [银行账号] = \'" & dr("银行账号") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
Next
If e.DataCol.Name = "银行账号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [银行账号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[银行账号] = \'" & e.OldValue & "\'", "[_SortKey]")
If dr IsNot Nothing Then
dr("余额") = dr("收入") - dr("支出")+jcj
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [银行账号] = \'" & dr("银行账号") & "\'", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("支出")
Next
End If
End If
End Select
DataTables("资金账").Save()
-- 发布时间：2014/7/13 17:08:00
--
能否打开附件的资金账，在输入日期和输入收入、支出就能发现，我表达不出来。
-- 发布时间：2014/7/13 17:10:00
--
看8楼。