下载信息 [文件大小: 下载次数: ]点击浏览该文件:退耕还林数据管理系统.rar
Dim dr As DataRow = e.DataRowDim 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
红色部分怎么连接才能生效?