以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  求助,求解答!急!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121223)

--  作者:15201695028
--  发布时间:2018/7/2 10:04:00
--  求助,求解答!急!
If e.DataCol.Name = "发票开具时间" Then
    If e.NewValue Is Nothing Then
        e.DataRow("开具发票") = "未付款"
    ElseIf e.NewValue = 
        e.DataRow("付款情况") = "已付款"
    End If
End If


我在elseif里想实现的是,如果newvalue为一个日期时间,则输出已付款。求大神帮解答,急!

--  作者:有点甜
--  发布时间:2018/7/2 10:06:00
--  
If e.DataCol.Name = "发票开具时间" Then
    If e.NewValue = Nothing Then
        e.DataRow("开具发票") = "未付款"
    ElseIf e.NewValue <> Nothing Then 
        e.DataRow("付款情况") = "已付款"
    End If
End If

--  作者:15201695028
--  发布时间:2018/7/2 11:11:00
--  
您能帮我看看我这是代码问题还是放错位置了?代码没有报错,但是并没有弹窗显示,辛苦您了,谢谢!
图片点击可在新窗口打开查看此主题相关图片如下:问题.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/7/2 11:24:00
--  

你表格输入的符号,要和代码输入的符号一致。注意中文、英文字符的匹配

 

参考,看看 http://www.foxtable.com/webhelp/scr/1273.htm

 


--  作者:15201695028
--  发布时间:2018/7/2 11:58:00
--  
增加了符号,可还是没有弹窗,是我的代码编辑器选错了吗?对不起,我还没有找到问题在哪里,您能再帮我看一下吗。
图片点击可在新窗口打开查看此主题相关图片如下:问题.jpg
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2018/7/2 12:02:00
--  

叹号!改成!,或者!改成!


--  作者:15201695028
--  发布时间:2018/7/2 13:08:00
--  
现在弹窗需要重置列,并且每有一个有文字就弹一遍,我应该如何修改代码才能达到这一列不论是出现一个或者多个文字,只预警一次?
--  作者:15201695028
--  发布时间:2018/7/2 14:23:00
--  
现在弹窗需要重置列,并且每有一个有文字就弹一遍,我应该如何修改代码才能达到这一列不论是出现一个或者多个文字,只预警一次?
--  作者:有点甜
--  发布时间:2018/7/2 14:24:00
--  

做一个按钮,执行下面代码

 

Dim fdr As DataRow = DataTables("项目资金").find("警报 like \'%项目余额不足%\'")
If fdr IsNot Nothing Then
    msgbox("不足")
Else
    msgbox("正常")
End If


--  作者:15201695028
--  发布时间:2018/7/2 15:10:00
--  
解决了,谢谢