主题：[求助] 这段代码为什么通不过，

少了个 if dr isnot nothing的判断，你只判断dr("项目名称")是否为空，没有考虑dr也可能为空。

补充：4楼的代码好像不太准确，dr是nothing，与dr("项目名称")为空是两回事，直接代替不太合适。

If e.DataCol.Name = "上级项目名称" Then

   Dim dr As DataRow

   dr = DataTables("项目明细").Find("[工程序号] = '" & Tables("项目信息").Current("序号") & "' and [项目名称] = '" & e.datarow("项目名称") & "'","编号 Desc")

  if dr isnot nothing
   if dr.IsNull("项目名称")  Then

      e.datarow("选择标记") = false

   else

      e.datarow("选择标记") = true

   end if
   end if
end if