专家坐堂-Syscmd.Table.Load() 事件Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  Syscmd.Table.Load() 事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91571)

--  作者：tjzj_lyl
--  发布时间：2016/10/13 15:53:00
--  Syscmd.Table.Load() 事件
请问老师：为什么一执行刷新Syscmd.Table.Load() 代码后，表中的未保存的正在编辑的行都保存了呢？

--  作者：tjzj_lyl
--  发布时间：2016/10/13 16:09:00
--
还有一个问题就是删除了当前行为什么退出系统时总提示是否要保存呢？一张表有多个用户在同时编辑，如确实要保存，该怎样保存呢？谢谢

--  作者：有点蓝
--  发布时间：2016/10/13 16:44:00
--
默认就是保存的，用这个http://www.foxtable.com/webhelp/scr/1928.htm

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

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

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

--  作者：tjzj_lyl
--  发布时间：2016/10/13 16:57:00
--
谢谢老师，我回去琢磨下。

--  作者：tjzj_lyl
--  发布时间：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
--  发布时间：2016/10/14 12:13:00
--
补充一下：在自定义用户登录后设定了 DataTables("资金支付单").LoadFilter ="申请单位 = \'" &_UserGroup & "\'",进入系统后，筛选树的界面还是显示”资金支会单“中全部的申请单位，但需要用按钮重新运行了一遍afterload事件中的代码后，就可以单独筛选”办公室“了，希望进入系统中直接单独筛选”办公室“，但不知如何修改？请指教，谢谢。

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

--  作者：有点蓝
--  发布时间：2016/10/14 14:18:00
--
代码没有问题，LoadFilter 是在什么事件的，然后完整代码看看

--  作者：tjzj_lyl
--  发布时间：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

--  作者：有点蓝
--  发布时间：2016/10/14 14:58:00
--

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

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

--  作者：tjzj_lyl
--  发布时间：2016/10/14 15:04:00
--

此主题相关图片如下：qq图片20161014150523.png