Select Case e.DataCol.Name
Case "征地时年龄","性别"
Dim r1 As DataRow = e.DataRow
If r1("性别") ="男"
If r1("征地时年龄")>0 And r1("征地时年龄")<16 Then
r1("年龄段")="一"
ElseIf r1("征地时年龄")>=16 And r1("征地时年龄")<50 Then
r1("年龄段")="二"
ElseIf r1("征地时年龄")>=50 And r1("征地时年龄")<60 Then
r1("年龄段")="三"
Else
r1("年龄段")="四"
End If
elseIf r1("性别") ="女"
If r1("征地时年龄")>0 And r1("征地时年龄")<16 Then
r1("年龄段")="一"
ElseIf r1("征地时年龄")>=16 And r1("征地时年龄")<45 Then
r1("年龄段")="二"
ElseIf r1("征地时年龄")>=45 And r1("征地时年龄")<55 Then
r1("年龄段")="三"
Else
r1("年龄段")="四"
End If
End If
End Select
加好友 
发短信
Post By：2022/3/4 17:52:00 [只看该作者]
