Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:7号更新有点问题.....DataColChanged不执行了?(已解决)

1楼
菜鸟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
            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编辑过]
2楼
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编辑过]
3楼
菜鸟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编辑过]
4楼
菜鸟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

5楼
cpayinyuan 发表于:2009/3/7 14:38:00
以下是引用菜鸟foxtable在2009-3-7 14:35:00的发言:

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

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

共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.