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
红色部分怎么连接才能生效?