代码可以不变的。
或者你改成
e.DataTable.Compute("Count([_Identify])","合同档案编号 = '" & dr("合同档案编号") & "' And 楼号 = " & dr("楼号") & " And 专业名称 = '" & dr("专业名称") & "'")