以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13009)

--  作者:yzc1953
--  发布时间:2011/9/24 7:53:00
--  [求助]
母预产期如何设计表达式?母猪的怀孕时间是114天。用EXCEL表计算的公式是:配种时间+114天。
--  作者:don
--  发布时间:2011/9/24 8:37:00
--  


DataColChanged 事件

某一列的内容被更改后执行,此时列的内容已经是更改后的值。

e参数属性:

DataTable:返回发生数据更改的数据表。
DataRow:  返回发生数据更改的数据行。
DataCol:  返回发生数据更改的数据列。
NewValue: Object类型,表示新的值。
OldValue: Object类型,表示旧的值

示例一

定在客户消费数据表中,有一逻辑型数据列,列名为“已结帐”,我们希望对于已结帐的行,能够自动通过审核(锁定),以免被误编辑。 
为实现这个目标,只需在DataColChanged事件中设置如下代码即可: 

If e.DataCol.Name = "已结帐" Then \'如果是已结帐列的内容变动
    
If e.NewValue = True Then \'而且变动后的值是True(已勾选)
        e.
DataRow.Locked = True \'那么锁定此行
    
End If
End
 
If


你的答案:


If e.DataCol.Name = "配种时间" Then 
    
If e.DataRow.
IsNull("配种时间"Then       

         e.DataRow("母预产期") = Nothing

    else

          e.DataRow("母预产期") = e.DataRow("配种时间").AddDays(114) 

    End If
End
 
If