以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  代码求助  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=14098)
--  作者：bm
--  发布时间：2011/11/8 11:52:00
--  代码求助

数据表aftercheckrow事件。最好可以选中后解锁行，清除选中后锁定行

 

 

 

 For Each r As Row In Tables("支出明细").Rows
    If r.Checked = True Then
Dim Result As DialogResult
            Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.yes Then
    Tables("支出明细").Current.Locked = False
    If Result = DialogResult.No Then
    r.Checked = False
     End If
    End If
 End If
Next

黄颜色部分的代码不管用。

[此贴子已经被作者于2011-11-8 11:54:06编辑过]
--  作者：bm
--  发布时间：2011/11/8 13:31:00
--  自己顶一下。
自己顶一下。
--  作者：blackzhu
--  发布时间：2011/11/8 14:08:00
--  
For Each r As Row In Tables("支出明细").Rows
    If r.Checked = True Then
Dim Result As DialogResult
            Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If Result = DialogResult.yes Then
    Tables("支出明细").Current.Locked = False 
    else
    r.Checked = False
     End If
    End If
 End If
Next

用否则试试?
--  作者：bm
--  发布时间：2011/11/8 14:28:00
--  谢谢。好用
谢谢。好用
--  作者：bm
--  发布时间：2011/11/8 14:46:00
--  还有一个问题
这个代码好像是针对整个表的。能否改成只针对当前行？
--  作者：狐狸爸爸
--  发布时间：2011/11/8 14:51:00
--  

简单，你看看这个事件：

 

http://www.foxtable.com/help/topics/1640.htm

 

 

If e.Row.Checked = True Then
    Dim Result As DialogResult
    Result = MessageBox.Show("确定需要更改数据吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.yes Then
        e.Row.Locked = False
    Else
        e.Row.Checked = False
    End If
End If
--  作者：bm
--  发布时间：2011/11/8 15:30:00
--  好用
好用