标题：[求助]　这个事件代码如何设置？

if e.datacol.name = "年" orelse e.datacol.name = "月" orelse e.datacol.name = "日" then
   e.datarow("日期")=e.datarow("年")&"-"&e.datarow("月")&"-"&e.datarow("日")
end if

在datachanged 事件中，我设置了上述代码。

年、月、日这三列的数据总是同时更新的，所以我设置为　orelse 

但是，执行总是出错：“2009－－”类型错，不能 记入日期列中。


后来，我设置为了　and

但是，执行以后，日期列为空值，不能触发事件！

请教各们如果计算“日期”列啊？

年、月、日　是从其他数据库中查询追加进来的。

if e.datacol.name = "年" orelse e.datacol.name = "月" orelse e.datacol.name = "日" then
   dim txt As String  = e.datarow("年")&"-"&e.datarow("月")&"-"&e.datarow("日")
   Dim Dt As Date
   If Date.TryParse(txt,dt) Then
        e.datarow("日期")=dt
   Else

        e.datarow("日期")= nothing

   end if
end if

这样好象也可以。

Dim dr As DataRow = e.DataRow
if e.datacol.name = "年" orelse e.datacol.name = "月" orelse e.datacol.name = "日" then
    if dr.IsNull("年") = false And dr.IsNull("月") = false And dr.IsNull("日") = false Then
        dr("日期")= CDate(dr("年") & "-" & dr("月") &"-"& dr("日"))
    End If
end if

设置一下转换？

试试！

呵，我的不好。还得加个分支才行。

Dim dr As DataRow = e.DataRow
if e.datacol.name = "年" orelse e.datacol.name = "月" orelse e.datacol.name = "日" then
    if dr.IsNull("年") = false And dr.IsNull("月") = false And dr.IsNull("日") = false Then
        dr("日期")= CDate(dr("年") & "-" & dr("月") &"-"& dr("日"))
    Else
        dr("日期") = Nothing
    End If
end if

这个问题解决了，但是在datachanged事件中，还有这样一段代码：

if  e.datacol.name = "账套编号" orelse  e.datacol.name = "年"  orelse  e.datacol.name = "月" orelse  e.datacol.name = "日" orelse e.datacol.name = "凭证类型" orelse  e.datacol.name = "凭证编号" orelse  e.datacol.name = "附件张数" then
    dim bm as string = e.datarow("凭证编号").tostring()
    e.datarow("关联") = e.datarow("账套编号")&" "&e.datarow("年")&"年"&e.datarow("月")&"月"&e.datarow("日")&"日"&e.datarow("凭证类型")&bm.PadLeft(4," ")&"号 附件"&e.datarow("附件张数")
end if

这段代码的意思是，当"账套编号"、"年"等等列的内容发生变化时，就更新"关联"列的内容，其中 "凭证编号"转换了一下类型。

执行以后就出现这样的错误提示：


此主题相关图片如下：未命名.jpg



我是一段一段地测试代码的，可以确定就是这一段出错了。

&符号前后要有空格

已试过了，还是出相同的错误！

传文件看看