Foxtable(狐表)用户栏目专家坐堂 → 窗口表行问题请教老师


  共有4591人关注过本帖树形打印复制链接

主题:窗口表行问题请教老师

帅哥哟,离线,有人找我吗?
mamuaiqing
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
窗口表行问题请教老师  发帖心情 Post By:2013/8/15 21:13:00 [显示全部帖子]

窗口中有"窗口_Table1"、保存按钮、修改按钮。

 

在“窗口_Table1”中选中一行后点击“修改按钮”实现Table1中的值按代码分别填入到相应的控件中,请教下老师,学生想实现选中一行点击“修改按钮”后Table的焦点行

 

就固定在当前选中的行中,不能再选择其他行,直到“点击保存”按钮后,这样“修改按钮”跟“保存按钮”的代码要怎么写?


 回到顶部
帅哥哟,离线,有人找我吗?
mamuaiqing
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/8/15 23:16:00 [显示全部帖子]

以下是引用有点甜在2013-8-15 22:48:00的发言:
 点击修改代码的时候,让table不能被编辑
Tables("xxxx").AllowEdit = false

 点击保存的时候,让table可以被编辑
Tables("xxxx").AllowEdit = true

感谢有点甜的帮忙,锁定表后用代码照样能改变表中的内容


 回到顶部
帅哥哟,离线,有人找我吗?
mamuaiqing
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:824 积分:6294 威望:0 精华:0 注册:2012/3/1 3:17:00
  发帖心情 Post By:2013/8/16 0:05:00 [显示全部帖子]

终于在帮助文件里找到这个,在表BeforeSelChange事件中输入下面的代码

If Forms("窗口").Opened Then
    If e.OldRange.RowSel <> e.NewRange.RowSel '如果选择的是不同的行
        If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then '而且原来选择的是一个有效的数据行
            If Forms("窗口").Controls("Button3").Text = "保存" Then
                e.Cancel = True
               
            End If
        End If
    End If
End If

[此贴子已经被作者于2013-8-16 0:15:03编辑过]

 回到顶部