7号更新有点问题.....DataColChanged不执行了?(已解决) Post By: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