主题：执行时出现：错误代码If e.DataCol.Name="项目名称" Then

If e.DataCol.Name="项目名称" Then
    If e.DataRow.IsNullTables("项目名称")=False Then
        If e.DataRow.GetCildRows("汇总2").Count= 0 Then
            Dim dr As DataRow=DataTables("汇总2").Addnew
             dr("项目名称")= e.NewValue
         End If
     End If
 End If

执行时出现：错误代码If e.DataCol.Name="项目名称" Then