真诚求助: 数据分组操作的问题

tianyu_Access

表 T 含有一个字段A、B：              $     我编的代码把整个表按整体编码，没有分组的效果
A   B                  A    B        $         
aa  0                 aa    1        $     Dim rs As Recordset
aa  0                 aa    2        $     Dim a As String
aa  0                 aa    3        $     Dim ii as integer
bb  0                 bb    1        $     ii =1
bb  0                 bb    2        $     a = "select B from T where A = T.A"                                   
bb  0                 bb    3        $     Set rs = CurrentDb.OpenRecordset(a)
bb  0                 bb    4        $     If rs.RecordCount > 0 Then
bb  0                 bb    5        $     Do While Not rs.EOF
cc  0                 cc    1        $     With rs
cc  0                 cc    2        $     .Edit    .Fields(0) = ii   .Update   End With   
在Access中，如何将B变成右边的样子？  $     rs.MoveNext  ii = ii + 1   Loop     End If

[此贴子已经被作者于2007-3-13 12:43:39编辑过]

wwwwa

如有唯一标识的字段的话，可以用查询解决，否则只有用VBA了。

tianyu_Access

不好意思，各位大侠，我看到的文字总是只有十行左右，怕你们看不见才排版成那个样子。

现在我已经修正了，就是在Access中，如何用查询实现将B的值按A分组赋值

表 T 含有字段A、B（要实现右边的效果）：              

A   B                  A    B                 
aa  0                 aa    1        
aa  0                 aa    2      
aa  0                 aa    3      
bb  0                 bb    1                                          
bb  0                 bb    2      
cc  0                 cc    1        
dd  0                 dd    1         

wwwwa

将表及要求结果贴出来看看，规范一点。

tianyu_Access

英雄！不胜感谢！你的代码非常好用！能不能告诉我用查询怎么做呢？谢谢了！[em01]

wuaza

大致敲的。你再调试一下。其实这个东西用查询也可以做。还有，拜托以后排版注意一下规整。
Dim rs As Recordset,dim rs1 as recordset
Dim a As String,dim b as string
Dim ii as integer
b="select a from t group by a"
Set rs1 = CurrentDb.OpenRecordset(b)
do while until rs1.eof
  ii =1
  a = "select B from T where A =' " & rs1(A) & "'"                                 
  Set rs = CurrentDb.OpenRecordset(a)
  If rs.RecordCount > 0 Then
  Do While Not rs.EOF
  With rs
  .Edit
  .Fields(0) = ii
  .Update
  End With   
  rs.MoveNext
  ii = ii + 1
  Loop
  End If
rs1.movenext
loop

[此贴子已经被作者于2007-3-13 13:16:33编辑过]