求助 ACCESS 里 VB 降序排列的语句以及其他问题

wing33709 · 发表于 2011-8-23 10:09

大家好，我才接触ACCESS没几天，现在需要在VBA里做一个东西，遇到瓶颈了，附件里有一个ACCESS文件，是我已经做过一部分VBA处理的，我的问题是，我需要把 Selected_Torus_Share_of_Limit_USD 这一列按照降序排列，我试过ORDER BY, SORT等一些方法，都不行，有谁能帮帮忙吗？必须要在VBA里。（为了方便，我已经把之前的VBA代码都删掉了）。

另外，还有一个，保留满足以下条件的数据：在 Assured_Name 里名称相同的公司在 Coverage_Description 下有三个或以上的，删除不满足条件的。这该用什么条件语句来设定呢？求解。

Specialty.rar (162.39 KB, 下载次数: 11)

zhangjimfu · 发表于 2011-8-23 12:13

SELECT * From May2011 order by Selected_Torus_Share_of_Limit_USD

复制代码

用ADO或DAO,都可以很好的解决这个问题啊

wing33709 · 发表于 2011-8-23 12:16

zhangjimfu 发表于 2011-8-23 12:13
用ADO或DAO,都可以很好的解决这个问题啊

我试过这个，程序没有报错，但是没有按照降序排列

wing33709 · 发表于 2011-8-23 12:17

zhangjimfu 发表于 2011-8-23 12:13
用ADO或DAO,都可以很好的解决这个问题啊

我用的是这段代码：
Set Db = CurrentDb
Set rst = Db.OpenRecordset("SELECT * FROM May2011 ORDER BY Selected_Torus_Share_of_Limit_USD DESC;")
rst.MoveLast
Db.Close

zhangjimfu · 发表于 2011-8-23 12:23

SELECT top 1 * FROM May2011 ORDER BY Selected_Torus_Share_of_Limit_USD DESC

复制代码

看楼主代码,是否想要取最小值呢?

wing33709 · 发表于 2011-8-23 12:26

zhangjimfu 发表于 2011-8-23 12:23
看楼主代码,是否想要取最小值呢?

不是，是想让整个表按 Selected_Torus_Share_of_Limit_USD 这一列为标准，降序排列

最好是能有完整的代码，我试过几个方法，都没成功

zhangjimfu · 发表于 2011-8-23 12:38

Specialty.rar (152.85 KB, 下载次数: 15)

用查询或在原表中将字段设置为降序排列

wing33709 · 发表于 2011-8-23 12:47

zhangjimfu 发表于 2011-8-23 12:38
用查询或在原表中将字段设置为降序排列

感谢！~ 这样是比较简单方便，但是不光是这一个代码，May2011 这个table是在原表上做了很多计算和filter后另外生成的，所以所有的步骤都必须在VBA中coding完成

wing33709 · 发表于 2011-8-24 10:18

自己顶上来

		自动登录	找回密码
密码			免费注册

[求助] 求助 ACCESS 里 VB 降序排列的语句以及其他问题