Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
下载信息 [文件大小: 下载次数: ] | |
![]() |
增加男 女列,代码改为:
Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("ryxxb")
If e.DataCol.Name = "dwdm" Then
dr("zzry") = dt.Compute("Count(xm)", "zzf = false And dwdm = '" & dr("dwdm") & "'" )
dr("jzry") = dt.Compute("Count(xm)", "zzf = true And dwdm = '" & dr("dwdm") & "'")
dr("男") = dt.Compute("Count(xm)", "xb = True And dwdm = '" & dr("dwdm") & "'")
dr("女") = dt.Compute("Count(xm)", "xb = False And dwdm = '" & dr("dwdm") & "'")
End If
建议你直接用中文的列名,否则你会头晕,别人更头晕。
谢谢了!