下载信息  [文件大小：   下载次数： ]

点击浏览该文件:退耕还林数据管理系统.rar

Dim dr As DataRow = e.DataRow
Dim dt As datatable =DataTables("总览")
If e.DataCol.Name = "造林年度" And dr.IsNull("造林年度") = False Then
    dr("小班个数") = dt.Compute("Count(小班号)","[造林年度] = \'" & dr("造林年度") & "\' And [乡名] = \'" & dr("乡名") & "\' and [村名] = \'" & dr("村名") & "\'")
    dr("造林类别_总面积") = dt.Compute("Sum(设计面积)","[造林年度] = \'" & dr("造林年度") & "\' And [乡名] = \'" & dr("乡名") & "\' and [村名] = \'" & dr("村名") & "\'")
End If

 红色部分怎么连接才能生效？

造林年度应该是数字吧，如果是的，就不应该用单引号:
 
dr("小班个数") = dt.Compute("Count(小班号)","[造林年度] = " & dr("造林年度") & " And [乡名] = \'" & dr("乡名") & "\' and [村名] = \'" & dr("村名") & "\'")
 
帮助对此有很详细的讲述，你应该好好看看的，表达式字符用单引号，日期用#，数字啥也不用。

动态合成表达式是很常用的，必须掌握。