以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  for each循环问题,求助!  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127972)

--  作者:304376480
--  发布时间:2018/11/26 13:24:00
--  for each循环问题,求助!
在循环语句中,不管 ‘值’ 有没有变化都会执行一次循环,使得tables表中显示状态是 ‘已编辑’ 过的表,

怎么判断如果‘值’没有改变就不循环或跳过循环?

下面是textbox控件中的代码,每次打开窗口,赋值给这个控件,就会执行一次循环,下面的红色部分没有起作用,怎么办

Dim va As String = e.Sender.value
For Each mx As Row In Tables("查看单据_table1").Rows 
If mx("客户ID") = va   Then
Continue For
End If
mx("客户ID") = va
Next

--  作者:有点甜
--  发布时间:2018/11/26 14:43:00
--  

执行下面代码,看弹出什么,是否正常

 

Dim va As String = e.Sender.String
msgbox(va)
For Each mx As Row In Tables("查看单据_table1").Rows
    If mx("客户ID") = va Then
msgbox(1)
        Continue For
    End If
    mx("客户ID") = va
Next

 

具体问题,做个实例发上来测试


--  作者:304376480
--  发布时间:2018/11/26 17:16:00
--  
谢谢老师
找到问题了,代码没问题,是其它地方影响了数据变动,所以执行了代码