以文本方式查看主题

-  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=174038)

--  作者:rjh4078
--  发布时间:2021/12/28 18:39:00
--  表格复选弹出提示的问题
在表格BeforeCheckRow事件中写入如下代码,但是同时选中很多行的话就会不停弹出提示,如何做到只弹一次?
Dim lst As List(of Row)
lst=e.Table.GetCheckedRows
If lst.count=0 Then
    Return
End If
Dim i As Integer=0
Dim j As Integer=0
If e.Row("产品编号")<>lst(0)("产品编号")  Then
    e.Cancel=True
    MessageBox.show("不同的产品不能勾选到一起结算!请确认!")
End If

--  作者:有点蓝
--  发布时间:2021/12/28 20:12:00
--  
这个没有办法