主题：[求助]“投保日期”上366天，如何写代码

日期计算问题.有一列“投保日期”是由用户输入的，现在要加上366天，得到另一日期列“保险到期”。请予指教。

一切正常 ，谢谢无私帮助，今后一定努力学习。

十再不好意思，再次向老师求助：我的数据库有一列日期型数据，字段名为：“二维到期”，现在我要知道这个字段的值(日期)离系统日期有几天(在易表里可以用“Number([行车证副到期])-Number(Today())”的刷新公式获得)。我想增设列“二维日龄”来解决这个问题。也认真看了FoxTable官方论坛关于“日龄”的例子，但始终不得要领。一句话，请老师指教：如何从系统日期和“二维到期”中获得“二维日龄”的数据。

收到。十分感谢。但是——
1) Dim dr As DataRow = e.DataRow
   If e.DataCol.Name = "投保日期" Then
    IF dr.IsNull("投保日期") Then
        dr("保险到期")  = Nothing
    Else
       dr("保险到期")  =  dr("投保日期").AddDays(366)
    End If
    中的第二语句“If e.DataCol.Name = "投保日期" Then”编译错误。不知是何原因？
2) ElseIf e.DataCol.Name = "二维到期" Then
    IF dr.IsNull("二维到期") Then
      dr("二维日龄")  = Nothing
    Else
       Dim Val As Date = dr("二维到期")
       dr("二维日龄") = (Date.Today -Val).Days
    End If
End If
   中的第一语句“ElseIf e.DataCol.Name = "二维到期" Then”编译错误。不知是何原因？
3) 第一次给的——
    If e.DataCol.Name = "投保日期" Then
      Dim dr As DataRow = e.DataRow
      IF dr.IsNull("投保日期") Then
           dr("保险到期")  = Nothing
      Else
           dr("保险到期")  =  dr("投保日期").AddDays(366)
      End If
End If
    一开始并没有错，但是，今天我在加载“'如果刚刚输入的不是"班线类别"或"经营线路"列
If e.DataCol.Name <> "班线类别" AndAlso e.DataCol.Name <> "经营线路" Then
    Return '则返回
End If
'如果"班线类别"或"经营线路"列的内容为空
If e.DataRow.IsNull("班线类别") OrElse e.DataRow.IsNull("经营线路") Then
    '则清除"途经地"和"经营里程""高速公路里程"三列的内容
    e.DataRow("途经地") = Nothing
    e.DataRow("经营里程") = Nothing
    e.DataRow("高速公路里程") = Nothing
    Return '然后返回
End If
Dim dr As DataRow
'在"经营线路表"查找所输入"班线类别""经营线路"的行
dr = DataTables("经营线路表").Find("[班线类别] = '" & e.DataRow("班线类别") & "' And [经营线路] = '" & e.DataRow("经营线路") & "'")
If dr IsNot Nothing Then '如果找到
    '将找到行的"途经地""经营里程""高速公路里程"内容填入到正在输入的行中.
    e.DataRow("途经地") = dr("途经地") '
    e.DataRow("经营里程") = dr("经营里程")
    e.DataRow("高速公路里程") = dr("高速公路里程")
End If”语句时(全部语句无错误)，第二语句“Dim dr As DataRow = e.DataRow”编译错误。无法理解。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:人员及车辆管理系统.rar

看到老师改过的文件包，并下载了，但无法解压。提示：“! C:\Documents and Settings\Administrator\桌面\人员及车辆管理系统.rar: 不可预料的压缩文件末端”。

已经收到并解压，但是第二个问题没有得到解决——
2) ElseIf e.DataCol.Name = "二维到期" Then
    IF dr.IsNull("二维到期") Then
      dr("二维日龄")  = Nothing
    Else
       Dim Val As Date = dr("二维到期")
       dr("二维日龄") = (Date.Today -Val).Days
    End If
End If
   中的第一语句“ElseIf e.DataCol.Name = "二维到期" Then”编译错误。不知是何原因？

收到。一切正常，十分感谢，今后遇到什么问题再各老师请教。

十分抱歉，又有问题了：
一、日龄语句无法加载。因为“车辆档案”除“二维日龄”外还有“行车证副日龄”、“加强险日龄”、“统筹日龄”和“合同日龄”；而“车主及驾驶员档案”有“准驾证副日龄”、“驾驶证副日龄”和“从业证副日龄”。按理，将
“ElseIf e.DataCol.Name = "到期字段名" Then
    IF dr.IsNull("字段名") Then
      dr("日龄字段名")  = Nothing
    Else
       Dim Val As Date = dr("到期字段名")
       dr("日龄字段名") = (Val-Date.Today ).Days
    End If
End If”
加载上去即可，但是一加载，就报错，无法加载。
二、自动输入问题：我在“理赔结帐台帐”和“车辆档案”已经各加载了一段自动输入的语句，运行很好。但是当我在“车辆档案”中加载第二个自动输入语句：

'如果刚刚输入的不是"车辆品牌"或"车辆型号"列
If e.DataCol.Name <> "车辆品牌" AndAlso e.DataCol.Name <> "车辆型号" Then
    Return '则返回
End If
'如果"车辆品牌"或"车辆型号"列的内容为空
If e.DataRow.IsNull("车辆品牌") OrElse e.DataRow.IsNull("车辆型号") Then
    '则清除"轮距"和"轴距""外廊尺寸""总质量"四列的内容
    e.DataRow("轮距") = Nothing
    e.DataRow("外廊尺寸") = Nothing
    e.DataRow("总质量") = Nothing
    Return '然后返回
End If
'在"品牌型号"表"查找所输入"车辆品牌""车辆型号"的行
dr = DataTables("品牌型号").Find("[车辆品牌] = '" & e.DataRow("车辆品牌") & "' And [车辆型号] = '" & e.DataRow("车辆型号") & "'")
If dr IsNot Nothing Then '如果找到
    '将找到行的"轮距""轴距""外廊尺寸""总质量"内容填入到正在输入的行中.
    e.DataRow("轮距") = dr("轮距") '
    e.DataRow("外廊尺寸") = dr("外廊尺寸")
    e.DataRow("总质量") = dr("总质量")
End If
时，结果是A)加载成功；B)无运行结果。

同时上传文件——

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新建文件.rar

收到。虽然在“车辆档案”中已经加载了“日龄”语句，但在数据表中并没有执行结果。同样自动输入也没有动静。而在“车主及驾驶员档案”表中无法加载“日龄”语句。