Foxtable(狐表)用户栏目专家坐堂 → 如何让窗口SQL表可编辑?


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

主题:如何让窗口SQL表可编辑?

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/24 11:26:00 [显示全部帖子]

Tables("部门考勤_Table1").AllowEdit = True

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/24 11:49:00 [显示全部帖子]

 多选就这样改

 

Dim Filter As String

With e.Form.Controls("bm")

    Filter = "部门 in ('" & .Value.replace(",", "','") & "')"

End With

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 9:39:00 [显示全部帖子]

 你说的复原是什么意思?

 

 想原表得到最新的数据?你只需要重新load一次原表


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 9:45:00 [显示全部帖子]

Tables("部门考勤_Table1").DataTable.LoadFilter = "1=2"

Tables("部门考勤_Table1").DataTable.Load

Tables("部门考勤_Table1").Grid.Rows(0).Height = 0

'Tables("部门考勤_Table1").DataTable.DataRows.Clear


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 10:07:00 [显示全部帖子]

呃,不应该吧。代码的意思是,不加载数据。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 10:20:00 [显示全部帖子]

 有什么问题?这不是你要的效果么

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 10:29:00 [显示全部帖子]

 那你就做一张那样的表,然后,绑定到那张表就好了

 

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

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/10/28 11:31:00 [显示全部帖子]

 加一个表格,然后设置 Tables("部门考勤_Table1").DataSource = DataTables("表A")


 回到顶部