andymark：条件更改后是否应在中间增加一个循环语句？

cyber-bobo

原条件：每两个名称更改一次ID号，（名称相同的按一个名称处理）。

现改为：每两个名称更改一次ID号，（名称相同的每三条记录按一个名称记录处理）。

条件更改后是否应在中间增加一个判断名称的循环语句？改了一晚都没成功，请帮忙！

andymark

下面的你应怎样处理

cyber-bobo

作如下处理，谢谢！

andymark

wuaza

逻辑是比较复杂。这样试试看。

Private Sub Command0_Click()
Dim StrName As String
Dim I As Integer
Dim J As Integer
Dim m As Integer
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection
Rs.Open "select * from 表1 order by 名称", Conn, adOpenDynamic, adLockOptimistic
I = 1
m = 1
Do While Not Rs.EOF
If StrName <> Rs.Fields("名称") Then
    m = 1
    I = I + 1
Else
    m = m + 1
End If

If m = 3 Then
m = 1
StrName = "!"
Else
StrName = Rs.Fields("名称")
End If

J = Int(I / 2)
Rs.Fields("id") = J
Rs.MoveNext
Loop
Set Rs = Nothing
Set Conn = Nothing
End Sub

cyber-bobo

哈哈，看看哪个的代码比较好？以下是andymark的代码：

'大家比比看！
Private Sub Command0_Click()
Dim StrName As String
Dim I As Integer
Dim J As Integer
Dim k As Integer
Dim Rs As New ADODB.Recordset
Dim Rst As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Set Conn = CurrentProject.Connection

Rst.Open "select DISTINCT 名称 from 表1 order by 名称", Conn, adOpenDynamic, adLockOptimistic

Do While Not Rst.EOF
  I = I + 1
  Rs.Open "select * from 表1 where 名称='" & Rst.Fields(0) & "'order by 名称", Conn, adOpenDynamic, adLockOptimistic

  J = 0
  
  Do While Not Rs.EOF

    J = J + 1
    k = Int((I - 0.1) / 2) + 1

    Rs.Fields("id") = k
    Rs.MoveNext

    If J Mod 3 = 0 Then
         I = I + 1
       Else
         I = I
     End If
  Loop
  Rs.Close

Rst.MoveNext
Loop

DoCmd.OpenQuery "查询1"
Set Rst = Nothing
Set Rs = Nothing
Set Conn = Nothing

End Sub

andymark

wuaza 不需要2次循环,会好些

cyber-bobo

经过一晚测试，还是andymark的好一点,wuaza的排序有时会有错！

还有：Rst.Open "select DISTINCT 产品ID from 临时表 order by 产品ID", Conn, adOpenDynamic, adLockOptimistic
这句中是按产品ID值的升序排列，如何改为按产品ID出现次数的降序排列？

cyber-bobo

早上顶一顶

guolb

123