Foxtable(狐表)用户栏目专家坐堂 → 这段代码怎么会将录入的数据变为0呢?


  共有1909人关注过本帖树形打印复制链接

主题:这段代码怎么会将录入的数据变为0呢?

帅哥哟,离线,有人找我吗?
nxhylczh
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
这段代码怎么会将录入的数据变为0呢?  发帖心情 Post By:2019/6/15 21:45:00 [只看该作者]

Select Case e.D a t a C o l.Name
    Case "合同金额"
    Dim bmgs As String="422"
    Dim bm As String = e.D a ta Row("项目编码") 
    Dim idx As Integer = 0
    For i As Integer = 0 To bmgs.length-1
        idx += val(bmgs(i))
        If b m .length >= i d x Then
            Dim s As String = b m .S u b String(0, i d x)
            Dim f d r As D a t a R o w = e.D a t a T a b l e.find("项目编码 = '" & s & "'")
            If f d r I s Not Nothing
                Dim je As Decimal=e.DataTable.Compute("sum("& e.dataCol.name  & ")", "项目编码 Like '" & s & "%' and 项目编码 <> '" & s & "'")
                fdr(e.DataCol.name) =je
'                fdr.Save
            End If
        End If
    Next
'End If
End S  e  l e ct
录入结束后按回来数据会变为零

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


[此贴子已经被作者于2019/6/16 13:06:33编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105487 积分:536426 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/6/17 9:07:00 [只看该作者]

调试技巧:http://www.foxtable.com/webhelp/scr/1485.htm,跟踪下面的提示框都显示什么内容

Select Case e.D a t a C o l.Name
    Case "合同金额"
    Dim bmgs As String="422"
    Dim bm As String = e.D a ta Row("项目编码") 
msgbox("bm=" & bm)
    Dim idx As Integer = 0
    For i As Integer = 0 To bmgs.length-1
        idx += val(bmgs(i))
msgbox("idx=" & idx)
        If b m .length >= i d x Then
            Dim s As String = b m .S u b String(0, i d x)
msgbox("s=" & s)
            Dim f d r As D a t a R o w = e.D a t a T a b l e.find("项目编码 = '" & s & "'")
msgbox(fdr Is Not Nothing)
            If f d r I s Not Nothing
                Dim je As Decimal=e.DataTable.Compute("sum("& e.dataCol.name  & ")", "项目编码 Like '" & s & "%' and 项目编码 <> '" & s & "'")
msgbox("je=" & je)
                fdr(e.DataCol.name) =je
'                fdr.Save
            End If
        End If
    Next
'End If
End S  e  l e ct

 回到顶部