以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/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