Foxtable(狐表)用户栏目专家坐堂 → 代码


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

主题:代码

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


加好友 发短信
等级:四尾狐 帖子:929 积分:6500 威望:0 精华:0 注册:2014/6/25 10:48:00
代码  发帖心情 Post By:2020/11/30 9:12:00 [只看该作者]

下面是一张表的表属性代码。
没有加上红色区域部分代码时没有什么问题,加上红色区域代码后提示如下错误(他们都包含有代码:Dim filter1 As String = "zwbm = '" & e.DataRow("zwbm")  & "',为什么前面的不提示错误,后面加上的就要提示错误??):
.NET Framework 版本:2.0.50727.8806
Foxtable 版本:2017.6.12.1
错误所在事件:表,融资贷款1年内到期统计表, DataColChanged
详细错误信息:
调用的目标发生了异常。
从字符串“zwbm = 'D520199-9152011573095676”到类型“Long”的转换无效。
输入字符串的格式不正确。
表属性代码为:
Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "rq" OrElse dc.Name = "时间长度" Then
    If dr.IsNull("rq") OrElse dr.IsNull("时间长度") Then
        dr("一年后日期") = Nothing
    Else
        dr("一年后日期") = dr("rq").AddYears(dr("时间长度"))
    End If
End If
If e.DataCol.Name = "zwbm" Then
    Dim filter1 As String = "zwbm = '" & e.DataRow("zwbm")  & "'And rq <= '" & e.DataRow("rq") & "'"
    e.DataRow("本月余额") = DataTables("xzfkmxb").Compute("sum(币种金额)",filter1) - DataTables("hbmxb").Compute("sum(币种金额)",filter1 )
End If

If e.DataCol.Name = "zwbm" Then
    Dim filter2 As String = "zwbm = '" & e.DataRow("zwbm")  & "' And nd = '" & e.DataRow("nd") & "'And yf = '" & e.DataRow("yf") & "'"
    e.DataRow("本月增加") = DataTables("xzfkmxb").Compute("sum(币种金额)",filter2 )
    e.DataRow("本月减少") = DataTables("hbmxb").Compute("sum(币种金额)",filter2 )
    
End If

If e.DataCol.Name = "zwbm" Then
    Dim filter3 As String = "zwbm = '" & e.DataRow("zwbm")  & "'"
    e.DataRow("一年内") = DataTables("hbfxjhb").Compute("sum(人民币金额2)",filter3 And "rq > '" & e.DataRow("rq") & "'and rq <= '" & e.DataRow("一年后") & "'")
    
End If

If e.DataCol.Name = "zwbm" Then
    Dim filter4 As String = "zwbm = '" & e.DataRow("zwbm")  & "'"
    e.DataRow("一年后") = DataTables("hbfxjhb").Compute("sum(人民币金额2)",filter4 And "rq > '" & e.DataRow("rq") & "'")
End If

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


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/11/30 9:19:00 [只看该作者]


e.DataRow("一年内") = DataTables("hbfxjhb").Compute("sum(人民币金额2)",filter3 & " And rq > '" & e.DataRow("rq") & "' and rq <= '" & e.DataRow("一年后") & "'")


 回到顶部