[浏览完整版]
标题：狐爸重复问题
1楼
张海兵 发表于：2011/9/1 20:32:00高手帮忙看一下。怎样才能让日期为空的行不计算。已经ok了。但输入日期不自动计算，需要把已经输的值改一下才能计算。可不可以输入日期后自动计算
| 下载信息 [文件大小：500.0 KB 下载次数：1] | |
 点击浏览该文件:管理项目1.table |
密码0000
2楼
czy 发表于：2011/9/1 20:55:00Select Case e.DataCol.Name
Case "账户名称","收入","金额","报销日期"
Case "账户名称","收入","金额","报销日期"
3楼
张海兵 发表于：2011/9/1 21:21:00好像没什么用啊
4楼
czy 发表于：2011/9/1 21:32:00Select Case e.DataCol.Name
Case "账户名称","收入","金额","报销日期"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
If mr.IsNull("报销日期") Then
mr("余额") = Nothing
Return
End If
Case "账户名称","收入","金额","报销日期"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
If mr.IsNull("报销日期") Then
mr("余额") = Nothing
Return
End If
5楼
czy 发表于：2011/9/1 21:45:00Select Case e.DataCol.Name
Case "账户名称","收入","金额","报销日期"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
If mr.IsNull("报销日期") Then
mr("余额") = Nothing
Return
End If
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [账户名称] = '" & mr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
If dr Is Nothing Then
mr("余额") = mr("收入") - mr("金额")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_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 & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[账户名称] = '" & e.OldValue & "' And 报销日期 IS NOT NULL", "[_SortKey]")
If dr IsNot Nothing Then
dr("余额") = dr("收入") - dr("金额")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("金额")
Next
End If
End If
mr.Locked = True
End Select
Case "账户名称","收入","金额","报销日期"
Dim dr As DataRow
Dim mr As DataRow = e.DataRow
If mr.IsNull("报销日期") Then
mr("余额") = Nothing
Return
End If
Dim drs As List(of DataRow)
dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [账户名称] = '" & mr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
If dr Is Nothing Then
mr("余额") = mr("收入") - mr("金额")
dr = mr
End If
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_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 & "' And 报销日期 IS NOT NULL", "[_SortKey] Desc")
If dr Is Nothing Then
dr = e.DataTable.Find("[账户名称] = '" & e.OldValue & "' And 报销日期 IS NOT NULL", "[_SortKey]")
If dr IsNot Nothing Then
dr("余额") = dr("收入") - dr("金额")
End If
End If
If dr IsNot Nothing Then
drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [账户名称] = '" & dr("账户名称") & "' And 报销日期 IS NOT NULL", "[_SortKey]")
For i As Integer = 1 To drs.Count - 1
drs(i)("余额") = drs(i-1)("余额") + drs(i)("收入") - drs(i)("金额")
Next
End If
End If
mr.Locked = True
End Select
6楼
张海兵 发表于：2011/9/1 21:49:00偶像啊老大。向你学习。
7楼
张海兵 发表于：2011/9/1 22:15:00日期输入后再改动。下面的余额没什么变化呀。
8楼
张海兵 发表于：2011/9/1 22:57:00帮忙再看看吧
9楼
czy 发表于：2011/9/1 23:02:00你的代码没有以日期为条件，更改日期结果自然不会变了
10楼
张海兵 发表于：2011/9/1 23:05:00那应该怎么办啊