Foxtable(狐表)用户栏目专家坐堂 → Syscmd.Table.Load() 事件


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

主题:Syscmd.Table.Load() 事件

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/13 16:44:00 [显示全部帖子]

默认就是保存的,用这个http://www.foxtable.com/webhelp/scr/1928.htm

DataTables("订单").Load(False)

 删除行要保存才真正删除的

不管有几个人在同时编辑,保存的方法都一样

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 14:18:00 [显示全部帖子]

代码没有问题,LoadFilter 是在什么事件的,然后完整代码看看

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 14:58:00 [显示全部帖子]

If  _UserGroup = "管理员"  Then
        DataTables("资金支付单").LoadFilter =""
    Else
        DataTables("资金支付单").LoadFilter ="申请单位 = '" &_UserGroup & "'"
    End If
msgbox(DataTables("资金支付单").LoadFilter ) '弹出看看什么内容
    DataTables("资金支付单").Load

另外登录窗口是在afteropenproject打开的吧,这个事件代码看看

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 15:08:00 [显示全部帖子]

说明了是管理员登录的,执行了DataTables("资金支付单").LoadFilter ="",可以自己弹出看看_UserGroup的值

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 15:59:00 [显示全部帖子]

重复升级了,Syscmd.Project.Update调用一次即可,不然可能会卡住升级失败

If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    Forms("用户登录").Open()
    If _UserName = "" Then
        Syscmd.Project.Exit()
        Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
    End If
    For Each de As DataTable In DataTables
        de.GlobalHandler.BeforeSelChange = True '开通全局表事件"BeforeSelChange"
        de.GlobalHandler.BeforeAddDataRow = True '开通全局表事件"BeforeAddDataRow"
        de.GlobalHandler.PrepareEdit = True  '
    Next
    '后续初始化代码
End If
[此贴子已经被作者于2016/10/14 16:00:21编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 16:02:00 [显示全部帖子]

禁用主窗口的关闭按钮:
 
RemoveXButton(baseMainform.handle)


[此贴子已经被作者于2016/10/14 16:02:02编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110598 积分:562892 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2016/10/14 16:30:00 [显示全部帖子]

一般在afteropenproject

 回到顶部