下面这个按钮,当我点一下时,可以满足条件1、当我点第二次时,应该显示请先2,但不执行,还是在条件1
1、If C urrentTable.compute("count(A)","A='KK'") > 0 Then
M essageBox.Show("请先1")
Else
If C urrentTable.C urrent IsNot Nothing Then
C urrentTable.C urrent.C lone()
C urrentTable.C urrent("A") = Nothing
End If
2、If C urrentTable.c ompute("c ount(A)","A = LL") > 0 Then
M essageBox.Show("请先2")
End If
End If
效果:当在窗体中,进行查找,找到当前行后,通过此按钮判断,当前行的A列=KK,大于0,则显示请先1,否则,克隆行并清除A列内容,第二次按此按钮,如此行A列未编辑为空,则显示请先2,