Foxtable(狐表)用户栏目专家坐堂 → [求助]请问我这个错误显示代码哪里出问题了


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

主题:[求助]请问我这个错误显示代码哪里出问题了

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


加好友 发短信
等级:幼狐 帖子:178 积分:1462 威望:0 精华:0 注册:2011/4/12 18:18:00
[求助]请问我这个错误显示代码哪里出问题了  发帖心情 Post By:2015/12/6 23:14:00 [显示全部帖子]

我设立了3个列,分别为借款总金额、 已还款、未还款
其中总金额为双精度字符,已还款是双精度字符,未还款是表达式。
我写的代码如下:想表示已还大于总金额的时候,在未还款上显示错误,用的DataColChanged事件。

请问我应该如何写,错在哪里?
Select Case e.DataCol.Name
    Case "还款_已还金额","借款_总金额"
        If e.DataRow.Isnull("还款_已还金额") - e.DataRow.Isnull("借款_总金额")<0 Then
            DataTables("应收账款").DataCols("还款_已还金额").RaiseDataColChanged
            e.DataRow.SetError("借款_未还金额", "还款不能超过借款!!!")
        Else
            e.DataRow.SetError("借款_未还金额","")
        End If

End Select


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


加好友 发短信
等级:幼狐 帖子:178 积分:1462 威望:0 精华:0 注册:2011/4/12 18:18:00
  发帖心情 Post By:2015/12/7 10:45:00 [显示全部帖子]

谢谢图片点击可在新窗口打开查看

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


加好友 发短信
等级:幼狐 帖子:178 积分:1462 威望:0 精华:0 注册:2011/4/12 18:18:00
  发帖心情 Post By:2015/12/14 12:22:00 [显示全部帖子]

请问 我学习MessageBox.Show  把代码改成了这样 又出现问题了。请问哪里不对呢~~~用在DataColChanging中的

<!--EndFragment-->

 

Select Case e.DataCol.Name
    Case "还款_已还金额","借款_总金额"
        Dim has As Double = IIF(e.DataRow.Isnull("还款_已还金额"),0,e.DataRow("还款_已还金额")  )
        Dim all As Double = IIF(e.DataRow.Isnull("借款_总金额"),0,e.DataRow("借款_总金额")  )
       If has > all  Then
            e.Cancel = True
            MessageBox.Show("还款大于借款","提示",MessageBoxButtons.OK)
        End If
       End Select


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


加好友 发短信
等级:幼狐 帖子:178 积分:1462 威望:0 精华:0 注册:2011/4/12 18:18:00
  发帖心情 Post By:2015/12/14 16:19:00 [显示全部帖子]

谢谢!!图片点击可在新窗口打开查看

 回到顶部