If e.DataCol.Name = "保管期限" Then \'发生变化的是保管期限吗?
    \'在保管期限表找出该期限代码
    Dim dr As DataRow = DataTables("dangan").Find("[qxk] = " & "\'" & e.DataRow("保管期限") & "\'" )
    If dr IsNot Nothing \'如果找到, 则设置各列内容
        e.DataRow("期限代码")= dr("期限代码")       
    End If
End If

Dim dr As DataRow = e.DataRow
If e.DataCol.Name = "分类号" OrElse e.DataCol.Name = "年度" OrElse e.DataCol.Name = "期限代码" OrElse

e.DataCol.Name = "件号" Then
    e.DataRow("档号") = dr("分类号") & "-" & dr("年度")& dr("期限代码")& "-" & dr("件号")
end if

这二段代码单独运行都正常，可执行，但我现在要将这二段代码放在一起就报错，请问应如何修改代码才能正常执行？

e.DataCol.Name = "件号" Then
    Dim dr As DataRow = e.DataRow
    e.DataRow("档号") = dr("分类号") & "-" & dr("年度")& dr("期限代码")& "-" & dr("件号")
end if

e.DataCol.Name = "件号" Then
    e.DataRow("档号") = dr("分类号") & "-" & dr("年度")& dr("期限代码")& "-" & dr("件号")

end if
前后两段都用一个变量了,将这段的"dr"改成其它的字符就可以了,比如改成:dr1

测试成功。谢谢！