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

窗体：基础教育统计窗体，其中插入控件表，绑定表名为：基础教育统计

click事件是单击单元格后执行，表“基础教育统计”的click代码如下

 

e.Cancel = True '取消点击时的默认动作

Dim dr As Row = e.Row

Dim 学段,学科 As String '定义名称

学段 = ""

学科 = ""

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

MessageBox.Show("学科 " &  学科 )

 

应用“基础统计教育窗体”时，点击下图中的单元格“4”，

 

 

此主题相关图片如下：111.jpg

 

由于数字4是在 “语文” 列，

1、点击后对应于代码 MessageBox.Show("学科 " &  学科 ) 的返回结果应该是   学科  and 统计_学科 = '语文'

2、可事实上返回的结果却是 错误结果：学科 ，如下图：

 

 
此主题相关图片如下：222.jpg

3、关闭返回窗口，重新再次点击，得到正确结果是： 学科  and 统计_学科 = '语文' ，如图：

 

此主题相关图片如下：333.jpg

 

4、以后每次点击的结果都是正确的，但关闭窗体重新运行时第一次点击却是错误的。

 

由于这个方面的说明书介绍的不多，不知是什么原因，敬请专家指教！

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

好像还是不行，第一次点击时执行结果是

     学科  1=1

 

第二次点击时执行结果就是：

      学科 and 统计学科 = '语文'

甜版主，请抽空帮我解答一下，要不要我上一个实例？

例子发上来