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编辑过]
以下是引用菜鸟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编辑过]
我晕.问题出在红色部分...为何以前就没这问题?
If dr("状态") = 1 Then
If
dr("停止日期") is Nothing Then
Dim T As string = "住院ID = " & dr("住院ID")
改为:
dr("停止日期") = Nothing 正常....
[此贴子已经被作者于2009-3-7 14:31:50编辑过]
以下是引用cpayinyuan在2009-3-7 14:25:00的发言:
估计是:if dr(("停止日期") is nothing 惹的祸,老大说现在版本中不允许这样用了,要改为用IsNull。
[此贴子已经被作者于2009-3-7 14:27:10编辑过]
用is null报错...说没定义变量null
以下是引用菜鸟foxtable在2009-3-7 14:35:00的发言:
用is null报错...说没定义变量null
不能用 dr("停止日期") is null, 而是用: IsNull("停止日期") ,IsNull是一个函数,帮助中有的.
以前的版本中,一直都可以用 is nothing,但从最近两次的更新开始,老大修改系统,不支持了!