以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  按钮  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=164230)
--  作者：bzqlyj
--  发布时间：2021/4/30 12:47:00
--  按钮
下面这个按钮，当我点一下时，可以满足条件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，
--  作者：有点蓝
--  发布时间：2021/4/30 13:44:00
--  
请不要重复发帖：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=164201