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

红袍老师，如图：

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

我想加载表的时候先按井名Well排序，然后单井再按时间Date排序，在预览里面没有问题，但是，表中的数据怎么就乱了呢？

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

[此贴子已经被作者于2016/8/23 9:33:59编辑过]

加载进来以后，再设置

Tables("表名").Sort = "Well, Date"

谢谢红袍老师。

已经把270W条数据导入了，使用动态加载的方式，处理起来很快，Foxtable太强大了。

红袍老师，遇到一个奇怪的问题。

我在新的项目中修改了一个表结构，并且把更新的发布后的文件直接拷贝给同事用了。在同事的电脑上，用其他账号登陆，系统显示的和更新后的一样，但是用我同事自己的账号登陆，却提示一个表找不到，然后用户界面打不开。

发布后的程序我给他重新安装了，都是如此。在安装后的程序上，用另外一个账号登陆没有任何问题，用他的账号登陆就有错误提示。

用我的账号登陆用一个程序，发现这个表没有问题的，但是他的账号登陆却一直提示一个窗口找不到表，然后就关闭了。

安装在D盘，我把他账号删除了重新设置了，还是如此。

什么原因？

[此贴子已经被作者于2016/8/23 10:46:44编辑过]

你项目事件的代码有问题。应该有判断用户名等加载表的代码。

' If Syscmd.Project.Update(False,True) = False Then '如果没有升级

Forms("主窗口").Open()

Forms("导航栏窗口").open()

If User.Type <> UserTypeEnum.Developer Then

TableCaptionVisible = False

End If

Dim dtname As String

For Each dt As DataTable In DataTables

dtname=dtname & dt.name & "|"

Tables("授权表").cols("表名").Combolist= dtname.trim("|")

'End If

'隐藏程序菜单

Basemainform.visible = True

ApplicationMenu.visible = False

'创建登陆日志

Dim IPAdress As System.Net.IPAddress

Dim HostName As String

HostName = System.Net.Dns.GetHostName '获得本机的机器名

IPAdress = System.Net.Dns.GetHostByName(HostName).AddressList.GetValue(0) '获得本机的IP

Dim ndr As DataRow = DataTables("系统登录日志表").AddNew()

ndr("登录用户") =User.Name

ndr("登录时间") =Date.Now

ndr("登录IP") =IPAdress.Tostring

ndr("机器名") =HostName

DataTables("系统登录日志表").Save()

' 默认冻结所有表的第一列

For Each tb As Table In Tables

tb.cols.Frozen=1

'显示更新日志

Dim Count = GetConfigValue("项目打开次数", 0)

If count = 0 Then

Dim Proc As New Process

Proc.File = ProjectPath & "\Docs\更新日志.pdf"

Proc.Start()

SaveConfigValue("项目打开次数", 1)

End If

'项目资料管理表特需授权用户选择

Tables("项目资料表").Cols("特需授权").DropForm = "特需授权用户选择窗口"

看一下 BeforeLoadOuterTable 事件，不行就加入msgbox，看弹出到哪里以后报错。

找到原因了，在我的“授权表“”里面还有对这张表的授权，而这张表名字已经改了，所以就找不到这张表。

把“授权表”中关于这张表的名字删除就OK了。

主题：表数据排序问题