Dim dt As DataTable = DataTables("中继表")
Select Case e.DataCol.name
Case "N1"
Dim m As String=e.DataCol.Name
Dim z1 As Double = dt.Compute("Count(N1)","N1='1' or N1='1/休'")
Dim dr1 As DataRow = DataTables("班次标记").Find("表头='一班人数'")
If dr1 IsNot Nothing Then
dr1("N1") =z1
End If
其中红色字体的代码能不能换成: Dim z1 As Double =dt.Compute("Count(m &)","m &='1' or m &='1/休'"); dr1(m &) =z1
实现的功能:在中继表中统计N1列出现“1”和“1/休”的个数,之后把这个个数填到班次标记表中一班人数对应的N1列。由于列有N1、N2、..............N31(即日期1到31日)每列都是差不多的代码,所以想简化一下。