[求助]请问我这个错误显示代码哪里出问题了 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2315人关注过本帖树形打印复制链接主题：[求助]请问我这个错误显示代码哪里出问题了

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

Hyphen

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/12/7 8:24:00 [只看该作者]

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 < 0 Then
            DataTables("应收账款").DataCols("还款_已还金额").RaiseDataColChanged
            e.DataRow.SetError("借款_未还金额", "还款不能超过借款!!!")
        Else
            e.DataRow.SetError("借款_未还金额","")
        End If


End Select

yumo123

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1462 威望：0 精华：0 注册：2011/4/12 18:18:00

Post By：2015/12/7 10:45:00 [只看该作者]

谢谢

yumo123

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1462 威望：0 精华：0 注册：2011/4/12 18:18:00

Post By：2015/12/14 12:22:00 [只看该作者]

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

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

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/12/14 15:09:00 [只看该作者]

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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：178 积分：1462 威望：0 精华：0 注册：2011/4/12 18:18:00

Post By：2015/12/14 16:19:00 [只看该作者]

谢谢！！

下一主题 >> << 上一主题

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