Office中国论坛/Access中国论坛

标题: 记录分类问题！ [打印本页]

作者: jiyu0617 时间: 2009-2-24 17:38
标题: 记录分类问题！
本帖最后由 jiyu0617 于 2009-2-25 08:54 编辑

求助！谢谢你的热心帮助！！！大家好！
我有一个表，字段有：品名，数量，分类
请问：我想以数量按序,排名前20%的记录分类更改成A
            排名前20%以上至60%的记录分类更改成B
            排名前60%以上至80%的记录分类更改成C
            排名前80%以上的记录分类更改成D
如何操作
谢谢您的帮助！！！

作者: todaynew 时间: 2009-2-24 20:45
1# jiyu0617

[attach]35851[/attach]

[attach]35852[/attach]

作者: Henry D. Sy 时间: 2009-2-24 20:58
不知道是不是这个意思
你看看结果对不对

1 定义一个函数

Public Function Gposition(Accor As Integer) As String
Dim tempString As String
Select Case Accor
Case Is > 80
tempString = "D"
Case Is > 60
tempString = "C"
Case Is > 20
tempString = "B"
Case Else
tempString = "A"
End Select
Gposition = tempString
End Function

复制代码

2 随便做个查询，称之为“Q”

3 通过按钮事件来实现结果

Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim Def As DAO.QueryDef
Dim strSQL As String, sSQL As String
Dim i As Integer
Set Def = CurrentDb.QueryDefs("Q")
For i = 20 To 100 Step 20
strSQL = "select top " & i & " percent * from 商品 order by 销售数量 desc"
Def.sql = strSQL
sSQL = "select 分类 from q where 分类 is null"
With rs
.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do While Not .EOF
If IsNull(.Fields(0)) Then
.Fields(0) = i
.MoveNext
End If
Loop
.UpdateBatch
.Close
End With
Next
sSQL = "select 商品全名,销售数量,gposition(分类) as 新分类 from 商品 order by 销售数量 desc"
Def.sql = sSQL
DoCmd.OpenQuery "Q"
Def.Close
Set Def = Nothing
Set rs = Nothing
End Sub

复制代码

作者: Henry D. Sy 时间: 2009-2-24 21:03
事件过程中判断字段是不是为空的可以去掉。
另，发帖请注意标题。

作者: ACMAIN_CHM 时间: 2009-2-24 21:33
查询中执行一下这一句SQL就行了。

update 商品
set 分类=Choose(int(dcount('*','商品','销售数量>=' & 销售数量)/dcount('*','商品')*10)+1,
'A','A','B','B','B','B','C','C','D','D','D');

******************
* 一切皆有可能 *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: jiyu0617 时间: 2009-2-25 08:58

非常感谢你们，你们的解决办法一个比一个妙！！！

:victory::victory::victory::victory:

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)