这个意思?
If e.DataCol.name = "乡镇" Then Dim count1 = DataTables("A表").getvalues("XJHZXM", "XZMC='" & e.DataRow("乡镇") & "'").count Dim count2 = DataTables("B表").getvalues("XJHZXM", "XZMC='" & e.DataRow("乡镇") & "'").count Dim count3 = DataTables("C表").getvalues("XJHZXM", "XZMC='" & e.DataRow("乡镇") & "'").count e.DataRow("XJHZSL") = count1+count2+count3End If