示例一
假定在客户消费数据表中,有一逻辑型数据列,列名为“已结帐”,我们希望对于已结帐的行,能够自动通过审核(锁定),以免被误编辑。
为实现这个目标,只需在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