标题：[求助]Compute 多条件连接

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

点击浏览该文件:退耕还林数据管理系统.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("村名") & "'")
 
帮助对此有很详细的讲述，你应该好好看看的，表达式字符用单引号，日期用#，数字啥也不用。

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