Foxtable(狐表)用户栏目专家坐堂 → 记录次数问题


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

主题:记录次数问题

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


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
记录次数问题  发帖心情 Post By:2018/4/30 16:31:00 [只看该作者]

.NET Framework 版本:2.0.50727.8745
Foxtable 版本:2018.3.9.1
错误所在事件:表,人工费明细表,DataColChanged
详细错误信息:
调用的目标发生了异常。
未找到类型“Integer”的公共成员“StartsWith”。



原代码

Select e.DataCol.Name
    Case "账户名称"
        If e.DataRow.IsNull("账户名称") Then
            e.DataRow("次数") = Nothing
        Else
            Dim lb As String = e.DataRow("账户名称")
            If e.DataRow("次数").StartsWith(lb) = False  Then     '如果单据编号前缀不符
                Dim max As String
                Dim idx As String
                max = e.DataTable.sqlCompute("Max(次数)","账户名称 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该账户名称的最大编号
                If max > "" Then '如果存在最大编号
                    idx = cint(max) + 1   '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("次数") =  Format(idx,"00")
            End If
        End If
End Select

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/4/30 16:45:00 [只看该作者]

Select e.DataCol.Name
    Case "账户名称"
        If e.DataRow.IsNull("账户名称") Then
            e.DataRow("次数") = Nothing
        Else
            Dim lb As String = e.DataRow("账户名称")
           
            Dim max As String
            Dim idx As String
            max = e.DataTable.sqlCompute("Max(次数)","账户名称 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该账户名称的最大编号
            If max > "" Then '如果存在最大编号
                idx = cint(max) + 1   '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("次数") =  Format(idx,"00")
        End If
End Select


 回到顶部
帅哥哟,离线,有人找我吗?
zoyong
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:656 积分:7786 威望:0 精华:0 注册:2015/8/24 9:02:00
  发帖心情 Post By:2018/4/30 16:59:00 [只看该作者]

甜老师,下面代码有效,谢谢

Select e.DataCol.Name
    Case "账户名称"
        If e.DataRow.IsNull("账户名称") Then
            e.DataRow("次数") = Nothing
        Else
            Dim lb As String = e.DataRow("账户名称")
            
            Dim max As String 
            Dim idx As Integer
            max = e.DataTable.Compute("Max(次数)","账户名称 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该账户名称的最大编号
            If max > "" Then '如果存在最大编号
                idx = cint(max) + 1   '获得最大编号的后三位顺序号,并加1
            Else
                idx = 1 '否则顺序号等于1
            End If
            e.DataRow("次数") =  Format(idx,"00")
        End If
End Select

 回到顶部