[求助] 数据加载问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 数据加载问题

共有3379人关注过本帖树形打印复制链接主题：[求助] 数据加载问题

wumingrong1

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

[求助] 数据加载问题 发帖心情

Post By：2014/6/22 17:59:00 [显示全部帖子]

我在项目属性的AfterOpenProject中和 “重新加载数据”按钮中都写有以下相同的命令；当我正常登录时如果是“特级管理员”或“省公司”登录，那么系统能够正常加载全部数据；但是当我以普通用户登录后、在打开的项目中通过切换用户的方式从普通用户切换为“特级管理员”或“省公司”时、点击“重新加载数据”项目就无法正常读取这个“If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator AndAlso _UserGroup <> "特级管理员" AndAlso _User分公司 <> "省公司" Then ”选项；没有读出项目的所有数据，这是为什么？

If User.Type <> UserTypeEnum.Developer AndAlso User.Type <> UserTypeEnum.Administrator AndAlso _UserGroup <> "特级管理员" AndAlso _User分公司 <> "省公司" Then

Dim fdr As DataRow = DataTables("Users").SQLFind("Name = '" & _userName & "'")

If fdr IsNot Nothing Then

_user分公司 = fdr("分公司")

End If

For Each dt As DataTable In DataTables

If dt.DataCols.Contains("分公司") Then

dt.GlobalHandler.DataRowAdded = True

dt.LoadFilter = "分公司 = '" & _user分公司 & "'"

dt.Load

End If

Else

Syscmd.Project.Load()

End If

wumingrong1

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2014/6/22 18:12:00 [显示全部帖子]

不对、当我切换为 _UserGroup <> "特级管理员" AndAlso _User分公司 <> "省公司" 后、项目中没有加载所有数据

[此贴子已经被作者于2014-6-22 18:14:58编辑过]

wumingrong1

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/3 18:39:00 [显示全部帖子]

1、想实现加载【客户联系电话】有重复的数据，公式该怎么修改？

2、想实现加载【客户联系电话】没有重复的数据，公式该怎么修改？

DataTables("投诉工单清单表").LoadFIlter = "月份 = '" & e.Form.Controls("月份").text & "' and 工单类型 = '10086工单' And 客户联系电话 *** "
DataTables("投诉工单清单表").Load

客户联系电话

123

234

354

123

342

1、加载的结果：

123

2、加载的结果：

234

354

342

[此贴子已经被作者于2017/10/3 18:39:28编辑过]

wumingrong1

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/5 16:17:00 [显示全部帖子]

DataTables("投诉工单清单表").LoadFIlter = "月份 = '" & e.Form.Controls("月份").text & "' and 工单类型 = '10086工单' And 客户联系电话 in (select 客户联系电话 from 投诉工单清单表 group by 客户联系电话 having count(客户联系电话) > 1) "

怎么把不是重复的也一起从数据库中加载出来呢；只是加载出来后做了筛选。我想加载的时候就只加载重复的数据；导出来的数据就只要重复的数据。

wumingrong1

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/5 16:48:00 [显示全部帖子]

图片点击可在新窗口打开查看此主题相关图片如下：360截图20171005164201923.jpg

我的按钮命令如下：

下载信息 [文件大小：下载次数： ]
点击浏览该文件:新建文本文档 (4).txt

[此贴子已经被作者于2017/10/6 10:54:41编辑过]

wumingrong1

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/6 12:34:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目4.foxdb

wumingrong1

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/10 17:13:00 [显示全部帖子]

如果我的数据表中，

1、在【月份】=【2017年09月份】有一个【客户联系方式】=5822596 的工单；

2、同时在【月份】=【2017年10月份】也有一个【客户联系方式】=5822596 的工单。

3、那么按照以上公式加载【2017年10月份】的重复工单时；会把2017年10月份这个【客户联系方式】=5822596的工单加载出来

4、而实际上在10月份这个5822596只有一条工单、不应该被加载出来

wumingrong1

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/10/27 16:02:00 [显示全部帖子]

以下命令是为了实现避免多人同时处理同一张工单而设置的签收功能。但是在实际使用中还是会出现多人在同一时间签收该工单时，两个人都能够完成签收。同时签收后两个人就都可以对该工单进行操作，而没有锁定该工单。我该怎么优化命令可以避免这个问题？

Tables("装机工单清单表").Current.Load()

Dim r As Row = Tables("装机工单清单表").current

If r.Isnull("内线当前操作员工") = Nothing And r("内线当前操作员工") <> User.name Then
Syscmd.Row.Lock()
Tables("装机工单清单表").Current.Save()
MessageBox.show("该工单现在由【" & r("内线当前操作员工") & "】正在操作!!!", "非常关键提醒")
Else

If r("工单当前环节") <> "外线开始装机工单" And r("工单当前环节") <> "FTTB数据制作工单" And r("工单当前环节") <> "内线归档处理工单" And r("工单当前环节") <> "服开卡单组未处理工单" And r("工单当前环节") <> "服开部分退单审批工单" And r("工单当前环节") <> "外线完成装机工单" And r("工单当前环节") <> "服开已归档工单" Then
Syscmd.Row.Lock()
Tables("装机工单清单表").Current.Save()
MessageBox.show("该工单当前环节为:【" & r("工单当前环节") & "】,你无权再进行操作!!!", "非常关键提醒")
Else

r("内线当前处理员工") = "内线当前处理员工:【" & User.name & "】处理进度:【" & e.Form.Controls("操作详情").text & "】"
r("内线当前操作员工") = User.name

DataTables("装机工单清单表").Save()
MessageBox.show("完成签收,请开始处理该工单!!!", "非常关键提醒")

End If
End If

wumingrong1

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/12/12 16:17:00 [显示全部帖子]

在表的DataColChanged中写有以下命令；想实现如果新增行中的【宽带帐号】在数据库中有相同的【宽带帐号】，那么就将工单加载到【投诉受理组维护窗口(二接V600)_Table3】中，该表为【副本】表

                                                  If Forms("投诉受理组维护窗口(二接V600)").Opened Then
                                                        Select Case e.DataCol.name
                                                            Case "宽带帐号"
                                                                Dim r As Row = Tables("投诉工单清单表").current
                                                                If r.Isnull("宽带帐号") = Nothing Then
                                                DataTables("投诉受理组维护窗口(二接V600)_Table3").LoadFIlter = "工单号 Is Null or (宽带帐号 = '"& r("宽带帐号") &"') "
                                                                    DataTables("投诉受理组维护窗口(二接V600)_Table3").Load
                                                                Else
                                                                    DataTables("投诉受理组维护窗口(二接V600)_Table3").LoadFIlter = "工单号 Is Null "
                                                                    DataTables("投诉受理组维护窗口(二接V600)_Table3").Load
                                                                End If
                                                                Tables("投诉受理组维护窗口(二接V600)_Table3").Sort = "创单时间 DESC"
                                                            End Select
                                                        End If

图片点击可在新窗口打开查看此主题相关图片如下：360截图20171212161501570.jpg

此主题相关图片如下：360截图20171212161605654.jpg

[此贴子已经被作者于2017/12/12 16:19:11编辑过]

wumingrong1

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00

Post By：2017/12/12 17:37:00 [显示全部帖子]

以下命令没有从数据库中加载出【宽带帐号】相同的工单

                                               If Forms("投诉受理组维护窗口(二接V600)").Opened Then
                                                        Select Case e.DataCol.name
                                                            Case "宽带帐号"
                                                                Dim r As Row = Tables("投诉工单清单表").current
                                                                If r.Isnull("宽带帐号") = Nothing Then
           Tables("投诉受理组维护窗口(二接V600)_Table3").DataTable.LoadFilter = "工单号 Is Null or (宽带帐号 = '"& r("宽带帐号"&"')
                                                               Else
                                                                    Tables("投诉受理组维护窗口(二接V600)_Table3").DataTable.LoadFilter = "工单号 Is Null "
                                                                End If
                                                                Tables("投诉受理组维护窗口(二接V600)_Table3").Sort = "创单时间 DESC"
                                                            End Select
                                                        End If

下一主题 >> << 上一主题

总数 13 1 2 下一页

主题：[求助] 数据加载问题