以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  7号更新有点问题.....DataColChanged不执行了?(已解决)  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=2051)
--  作者：菜鸟foxtable
--  发布时间：2009/3/7 14:19:00
--  7号更新有点问题.....DataColChanged不执行了?(已解决)
27号之前的版本都没问题...怎么回事?图片点击可在新窗口打开查看
如下代码: 状态列变为1,停止日期依然不变....还是空值...
If e.DataCol.name = "状态" Then
    dim dr as datarow = e.DataRow
    Dim h As integer= date.now.hour
   
    If dr("状态") = 1 Then
        If dr("停止日期") is Nothing Then
            Dim T As string = "住院ID = " &  dr("住院ID")
            Dim dr1 As DataRow
            dr1 = DataTables("住院信息").Find(T)
            dr("停止日期") = dr1("出院日期")
            dr("天数")= (dr("停止日期")-dr("开始日期")).days+iif(h >11,1,0)
        End If
    End If
End If
[此贴子已经被作者于2009-3-7 15:35:16编辑过]
--  作者：cpayinyuan
--  发布时间：2009/3/7 14:25:00
--  
以下是引用菜鸟foxtable在2009-3-7 14:19:00的发言：
27号之前的版本都没问题...怎么回事?图片点击可在新窗口打开查看
如下代码: 状态列变为1,停止日期依然不变....还是空值...
If e.DataCol.name = "状态" Then
    dim dr as datarow = e.DataRow
    Dim h As integer= date.now.hour
   
    If dr("状态") = 1 Then
        If dr("停止日期") is Nothing Then
           


估计是：if dr(("停止日期") is nothing 惹的祸，老大说现在版本中不允许这样用了，要改为用IsNull。

[此贴子已经被作者于2009-3-7 14:27:10编辑过]
--  作者：菜鸟foxtable
--  发布时间：2009/3/7 14:31:00
--  
图片点击可在新窗口打开查看我晕.问题出在红色部分...为何以前就没这问题?

 If dr("状态") = 1 Then
        If dr("停止日期") is Nothing Then
            Dim T As string = "住院ID = " &  dr("住院ID")
改为:
dr("停止日期") = Nothing

正常....
[此贴子已经被作者于2009-3-7 14:31:50编辑过]
--  作者：菜鸟foxtable
--  发布时间：2009/3/7 14:35:00
--  
以下是引用cpayinyuan在2009-3-7 14:25:00的发言：


估计是：if dr(("停止日期") is nothing 惹的祸，老大说现在版本中不允许这样用了，要改为用IsNull。

[此贴子已经被作者于2009-3-7 14:27:10编辑过]

用is null报错...图片点击可在新窗口打开查看说没定义变量null
--  作者：cpayinyuan
--  发布时间：2009/3/7 14:38:00
--  
以下是引用菜鸟foxtable在2009-3-7 14:35:00的发言：

用is null报错...图片点击可在新窗口打开查看说没定义变量null

不能用 dr("停止日期") is null, 而是用: IsNull("停止日期") ,IsNull是一个函数,帮助中有的.
以前的版本中,一直都可以用 is nothing,但从最近两次的更新开始,老大修改系统,不支持了!