以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这样的按钮代码为什么会使行号变成橙色？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33816)
--  作者：comnets
--  发布时间：2013/5/24 17:52:00
--  这样的按钮代码为什么会使行号变成橙色？
修改按钮click事件代码：

If User.IsRole("修改") Then
    
Tables("A表").Current.Locked = False
    For Each c As WinForm.Control In e.Form.Controls
        c.Enabled=True
    Next

Dim fh As Boolean = ((Tables("A表").Current("b") = True) OrElse (Tables("A表").Current("c") = True))
If fh = True Then
Tables("A表").Current("d") = True
End If


    e.Form.Controls("a").Visible = True
    e.Form.Controls("a").Enabled = True    
    e.Form.Controls("b").Visible = False
    e.Form.Controls("b").Enabled = False
    e.Form.Controls("c").Visible = False
    e.Form.Controls("c").Enabled = False
    e.Form.Controls("e").Visible = False
    e.Form.Controls("f").Select()
    e.Form.Controls("g").Visible = False
    e.Form.Controls("h").Enabled = False
    e.Form.Controls("i").Visible = False
    e.Form.Controls("j").Enabled = False
Else
    MessageBox.Show("你无修改权限!")
End If


这样的click事件代码，在修改按钮点下之后并未做任何修改时为什么当前行号也会变成橙色？（此时红色代码部分的A表当前行b列、c列都不为真）
[此贴子已经被作者于2013-5-24 17:58:51编辑过]
--  作者：Bin
--  发布时间：2013/5/24 17:55:00
--  
Dim fh As Boolean = ((Tables("A表").Current("b") = True) OrElse (Tables("A表").Current("c") = True))
If fh = True Then
Tables("A表").Current("d") = True
End If
  因为你在这里赋值了
[此贴子已经被作者于2013-5-24 17:55:53编辑过]
--  作者：comnets
--  发布时间：2013/5/24 17:58:00
--  
表内当前行任何列并无任何变化，只是定义了一个变量并赋值，没有写入和更改表内任何数据，也会改变行的状态？
--  作者：comnets
--  发布时间：2013/5/24 18:00:00
--  
此时红色代码部分的A表当前行b列、c列都不为真，也就是没有给当前行d列赋值啊。
--  作者：Bin
--  发布时间：2013/5/24 18:02:00
--  
例子发出来