Office中国论坛/Access中国论坛

标题: 真诚求助: 数据分组操作的问题 [打印本页]

作者: tianyu_Access 时间: 2007-3-13 20:30
标题: 真诚求助: 数据分组操作的问题
表 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编辑过]

作者: wuaza 时间: 2007-3-13 21:14
大致敲的。你再调试一下。其实这个东西用查询也可以做。还有，拜托以后排版注意一下规整。
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编辑过]

作者: tianyu_Access 时间: 2007-3-14 23:59
英雄！不胜感谢！你的代码非常好用！能不能告诉我用查询怎么做呢？谢谢了！[em01]

作者: wwwwa 时间: 2007-3-15 16:09
将表及要求结果贴出来看看，规范一点。

作者: tianyu_Access 时间: 2007-3-15 17:05
不好意思，各位大侠，我看到的文字总是只有十行左右，怕你们看不见才排版成那个样子。

现在我已经修正了，就是在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 时间: 2007-3-15 18:41
如有唯一标识的字段的话，可以用查询解决，否则只有用VBA了。

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