主题：click事件执行时第一次结果错误第二次结果正确

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(学科 & 学段 )