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


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

主题：Syscmd.Table.Load() 事件
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		Syscmd.Table.Load() 事件  发帖心情 Post By：2016/10/13 15:53:00 [显示全部帖子]

请问老师：为什么一执行刷新Syscmd.Table.Load() 代码后，表中的未保存的正在编辑的行都保存了呢？

 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/13 16:09:00 [显示全部帖子]

还有一个问题就是 删除了当前行为什么退出系统时总提示是否要保存呢？一张表有多个用户在同时编辑，如确实要保存，该怎样保存呢？谢谢

 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/13 16:57:00 [显示全部帖子]

谢谢老师，我回去琢磨下。

 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 12:09:00 [显示全部帖子]

请问老师一个问题：
     表单中有一个筛选树窗口，在窗口afterload事件中 有如下代码：
Dim dt As DataTable=DataTables("资金支付单")
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Nodes.Insert("显示所有行",0)
Dim str0,str1,str3 As String
str0 = dt.GetComboListString("申请单位")

用于提取单位名称，提取了资金支付单中的所有单位，如下图所示：

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20161014120525.png
图片点击可在新窗口打开查看

但用户是使用的自定义界面登录的，有权限控制，假设用户为办公室，登录后如何剔除办公室以外的筛选内容？谢谢老师。
 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 12:13:00 [显示全部帖子]

补充一下：在自定义用户登录后设定了 DataTables("资金支付单").LoadFilter ="申请单位 = '" &_UserGroup & "'",进入系统后，筛选树的界面还是显示”资金支会单“中全部的申请单位，但需要用按钮重新运行了一遍afterload事件中的代码后，就可以单独筛选”办公室“了，希望进入系统中直接单独筛选”办公室“，但不知如何修改？请指教，谢谢。

[此贴子已经被作者于2016/10/14 12:19:14编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 14:25:00 [显示全部帖子]

以下是登录按钮的执行代码：

Dim UserName As String = e.Form.Controls("UserName").Value
Dim group As String = e.Form.Controls("group").Value
If UserName = ""  Then
    Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If group = ""  Then
    Messagebox.show("请选择部门!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
Dim dr As DataRow
dr = DataTables("用户表").Find("[name] = '" & username & "'")
If dr Is Nothing Then
    Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    Return
End If
If e.Form.Controls("PassWord").Value = dr("Password") Then
    _UserName = UserName
    _UserGroup = dr("Group")
    e.Form.Close
    
    Tables("用户表").Visible=False
    If  _UserGroup = "管理员"  Then
        RibbonTabs("Gongnq").Groups("Gongnz").Items("主窗口刷新").Enabled=True
        RibbonTabs("Project").Groups("Kgxgb").Items("开关相关表").Enabled=True
        RibbonTabs("Project").Groups("Yhgl").Items("新增用户").Enabled=True
        RibbonTabs("Project").Groups("Yhgl").Items("删除用户").Enabled=True
        RibbonTabs("Qhcd").Groups("Qhcd").Enabled=True
        Tables("主窗口").Visible=True
        Tables("资金支付单汇总").Visible=False
        Tables("收款明细表").Visible=True
        Tables("余额表").Visible=True
    Else
        Tables("主窗口").Visible=False
        Tables("资金支付单汇总").Visible=False
        Tables("收款明细表").Visible=False
        Tables("余额表").Visible=False
        RibbonTabs("Gongnq").Groups("Gongnz").Items("主窗口刷新").Enabled=False
        RibbonTabs("Project").Groups("Kgxgb").Items("开关相关表").Enabled=False
        RibbonTabs("Project").Groups("Yhgl").Items("新增用户").Enabled=False
        RibbonTabs("Project").Groups("Yhgl").Items("删除用户").Enabled=False
        RibbonTabs("Qhcd").Groups("Qhcd").Enabled=False
    End If
    If  _UserGroup = "管理员"  Then
        DataTables("资金支付单").LoadFilter =""
    Else
        DataTables("资金支付单").LoadFilter ="申请单位 = '" &_UserGroup & "'"
    End If
    DataTables("资金支付单").Load
    StatusBar.Message1= "单位:" &_UserGroup  &"    操作员:" &_UserName
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 15:04:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq图片20161014150523.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 15:05:00 [显示全部帖子]

空白的，是要找开项目事件后

 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 15:08:00 [显示全部帖子]

空白的，是在afteropenproject打开的

 回到顶部
帅哥哟，离线，有人找我吗？
tjzj_lyl
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：183 积分：1341 威望：0 精华：0 注册：2015/9/23 20:33:00 		  发帖心情 Post By：2016/10/14 15:13:00 [显示全部帖子]

For Each de As DataTable In DataTables
    de.GlobalHandler.BeforeSelChange = True '开通全局表事件"BeforeSelChange"
    de.GlobalHandler.BeforeAddDataRow = True '开通全局表事件"BeforeAddDataRow"
    de.GlobalHandler.PrepareEdit = True  '
Next
Syscmd.Project.Update(False,False) 
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
    Forms("用户登录").Open()
    If _UserName = "" Then
        Syscmd.Project.Exit()
        Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
    End If
    '后续初始化代码
End If
 回到顶部
总数 15 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05859 秒, 5 次数据查询