[求助]所设置的条件不起作用，老师可以帮看一下错在哪吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

本来设置了，判断列

“收发” = “收” 就会执行加法

“收发” = “发” 则执行减法。

但如我的代码——

却是第一行是加，则后边的全部是加，若是减，则全部是减。

dvubb 此主题相关图片如下：1.png

dvubb 此主题相关图片如下：2.png

dvubb 此主题相关图片如下：3.png

代码如下：

Dim dr As DataRow
        Dim mr As DataRow = e.DataRow
        Dim drs As List(of DataRow)

        dr = e.DataTable.Find("[_SortKey] < " & mr("_SortKey") & " And [s_Category] = '" & mr("s_Category") & "'", "[_SortKey] Desc")
        If dr Is Nothing Then
            If mr("s_SendReceive") = "收" Then
                mr("s_surplus") = 0 + mr("s_SR_total")
            ElseIf mr("s_SendReceive") = "发" Then
                mr("s_surplus") = 0 - mr("s_SR_total")
            End If
            dr = mr
        End If
        '如果当前行为第一行
        drs = e.DataTable.Select("[_SortKey] >= " & dr("_SortKey") & " And [s_category] = '" & dr("s_category") & "'", "[_SortKey]")
        For i As Integer = 1 To drs.Count - 1
            If mr("s_SendReceive") = "收" Then
                drs(i)("s_surplus") = drs(i-1)("s_surplus") + drs(i)("s_sr_total")
            ElseIf mr("s_SendReceive") = "发" Then
                drs(i)("s_surplus") = drs(i-1)("s_surplus") - drs(i)("s_sr_total")
            End If
        Next

[此贴子已经被作者于2018/11/29 23:53:06编辑过]

If mr("s_SendReceive") = "收" Then

改成

If drs(i)("s_SendReceive") = "收" Then

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2018.10.9.1

错误所在事件：表，a123，DataColChanged

详细错误信息：

调用的目标发生了异常。

无法将类型为“System.Double”的对象强制转换为类型“Foxtable.DataRow”。

接下来出现这个错误？

.NET Framework 版本：2.0.50727.3655

Foxtable 版本：2018.10.9.1

错误所在事件：表，a123，DataColChanged

详细错误信息：

调用的目标发生了异常。

无法将类型为“System.Double”的对象强制转换为类型“Foxtable.DataRow”。

贴出所写全部代码。

要学会自己调试 http://www.foxtable.com/webhelp/scr/1485.htm

已经在努力学了老师

Select Case e.DataCol.Name

Case "收发料数据_数量","收发料数据_单价","收发料数据_小计","收发","材料种类"

'-----------------------------------

Dim CurrentRow As DataRow = e.DataRow

Dim VariableRow As DataRow

Dim VariableRowList As List(of DataRow)

Dim FindLastRow As String = "[_SortKey] < " & CurrentRow("_SortKey") & " And [材料种类] = '" & CurrentRow("材料种类") & "'"

Dim FindMax As String = "[_SortKey] Desc"

'-------------------

VariableRow = e.DataTable.Find(FindLastRow, FindMax)

If VariableRow Is Nothing Then

If CurrentRow("收发") = "收" Then

CurrentRow("结余_金额") = 0 + CurrentRow("收发料数据_小计")

ElseIf CurrentRow("收发") = "发" Then

CurrentRow("结余_金额") = 0 - CurrentRow("收发料数据_小计")

End If

VariableRow = CurrentRow

End If

VariableRowList = e.DataTable.Select("[_SortKey] >= " & VariableRow("_SortKey") & " And [材料种类] = '" & VariableRow("材料种类") & "'", "[_SortKey]")

For Rank As Integer = 1 To VariableRowList.Count - 1

If VariableRowList(Rank)("收发") = "收" Then

VariableRowList(Rank) = VariableRowList(Rank - 1)("结余_金额") + VariableRowList(Rank)("收发料数据_小计")

ElseIf VariableRowList(Rank)("收发") = "发" Then

VariableRowList(Rank) = VariableRowList(Rank - 1)("结余_金额") - VariableRowList(Rank)("收发料数据_小计")

End If

'------------------------------------

End Select

主题：[求助]所设置的条件不起作用，老师可以帮看一下错在哪吗？