主题：代码

没有冲突，不过可以合并：

Select Case e.DataCol.Name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("年度") = Nothing
        Else
            e.DataRow("年度") = cdate(e.DataRow("日期")).year
        End If
    Case "待收ID"
        Dim dr As DataRow
        dr = DataTables("待收").Find("待收ID = " & "'" & e.DataRow("待收ID") & "'" )
        If dr IsNot Nothing '如果找到, 则设置各列内容
            e.DataRow("来往单位")= dr("来往单位")
            e.DataRow("年度")= dr("年度")
            e.DataRow("项目")= dr("项目")
            e.DataRow("项目明细")= dr("项目明细")
        End If
End Select