Office中国论坛/Access中国论坛

标题: 请教字段中部分不确定内容的统计 [打印本页]

作者: boczsg 时间: 2009-12-18 14:54
标题: 请教字段中部分不确定内容的统计
字段中有若干人名，每人用空格分开，且顺序不固定。如何统计所有记录中每个人名出现次数？

如:下面字符分别代表汉字人名（两字或三字不等），人数不固定，之间有空格。

第一个记录 A B F Q
第二个记录 B C A
第三个记录 B
第四个记录 B S C
......
            B
            C
            J
            H L A

作者: todaynew 时间: 2009-12-19 14:33

字段中有若干人名，每人用空格分开，且顺序不固定。如何统计所有记录中每个人名出现次数？

如:下面字符分别代表汉字人名（两字或三字不等），人数不固定，之间有空格。

第一个记录 A B F Q
第二个记录 ...
boczsg 发表于 2009-12-18 14:54

[attach]40872[/attach]

[attach]40873[/attach]

Private Sub Form_Close()
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM 表2;"
End Sub

Private Sub 统计_Click()
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim sql As String
Dim B As String
Dim i As Long
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM 表2;"
sql = "select * from 表1"
rs1.Open sql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
rs2.Open "表2", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
For i = 1 To rs1.RecordCount
B = rs1("人员")
Do While Nz(B, "") <> ""
      rs2.AddNew
      If InStr(B, " ") > 0 Then
         rs2("姓名") = Mid(B, 1, InStr(B, " ") - 1)
         B = Mid(B, InStr(B, " ") + 1)
      Else
         If InStr(B, " ") = 0 Then
            rs2("姓名") = B
            B = ""
         End If
      End If
      rs2.Update
Loop
rs1.MoveNext
Next
rs1.Close
rs2.Close
Me.列表.Requery
End Sub

作者: boczsg 时间: 2009-12-20 15:46
先谢谢！！
但是
提示：运行时错误‘429’
ACTIVEX部件不能创建对象。

作者: todaynew 时间: 2009-12-20 15:51
具体问题需要看实例才能清楚

作者: boczsg 时间: 2009-12-21 08:45
原来没有解压缩，直接在压缩文件内运行，所以提示出错。需要解压缩才能正常运行。
再次感谢todaynew！！

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