e.Cancel = True '取消点击时的默认动作
Dim dr As Row = e.Row
Dim 学段,学科 As String '定义名称
学段 = "1=1"
学科 = "1=1"
If e.Col.Name = "小学_语文" Then
学科 = " and 统计_学科 = '语文' "
ElseIf e.Col.Name = "小学_数学" Then
学科 = " and 统计_学科 = '数学' "
End If
If dr("项目含义") Like "*小学*" Then
学段 = " and 统计_学段 = '小学' "
ElseIf dr("项目含义") Like "*初中*" Then
学段 = " and 统计_学段 = '初中' "
ElseIf dr("项目含义") Like "*高中*" Then
学段 = " and 统计_学段 = '高中' "
End If
MessageBox.Show(学科 & 学段 )