相同字段，合并其他字段文本难题（因数据量大，请用SQL SERVER而非ACCESS实现）

wsq0931

（感谢前面的朋友用ACCESS给我了一个答案，但运行速度实在不行~）
有类似如下表格1，现在想转换成表格2的形式，高手指导一下！
表格1
合同号        条款
11        1月1日付款5元
11        2月1日付款6元
11        5月1日付款7元
22        2月1日付款6元
22        5月1日付款7元
表格2
合同号        条款
11        1月1日付款5元，2月1日付款6元，5月1日付款7元
22        2月1日付款6元，5月1日付款7元

microyin

看起来这边还是EXCEL高手多一些

wsq0931

高手指导下哈

Scarlett_88

本人做了一个EXCEL版的，我还没装SQL server 况且我的系统为英文版的，在SQL server 中要用到游标，思路是先将合同号用Distinct出唯一值，用游标嵌套查询，下个月回中国，到时再看看

双击sheet2工作表单元格执行查询。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim arr, arr2, arr3
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim strSQL As String
'Dim intI As Integer, intJ As Integer

Sheet2.Range("A:B").ClearContents
strSQL = "select Distinct ID from [sheet1$]"
Sheet2.Range("A1:B1") = Sheet1.Range("A1:B1").Value
    If cnn.State = 0 Then
    cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;IMEX=1;HDR=YES';Data Source=" & ThisWorkbook.FullName
    End If
    rst.Open strSQL, cnn, adOpenKeyset, adLockPessimistic
arr = rst.GetRows
Sheet2.Cells(2, 1).Resize(UBound(arr, 2) + 1, UBound(arr, 1) + 1) = Application.Transpose(arr)
rst.Close
ReDim arr2(UBound(arr, 2))
For i = 0 To UBound(arr, 2)
strSQL = "select Item from [sheet1$] where ID=" & arr(0, i)
    rst.Open strSQL, cnn, adOpenKeyset, adLockPessimistic

arr3 = rst.GetRows
rst.Close

For j = 0 To UBound(arr3, 2)
arr2(i) = arr2(i) & "," & arr3(0, j)
Next
arr2(i) = Mid(arr2(i), 2, Len(arr2(i)) - 1)
Next
Sheet2.Cells(2, 2).Resize(UBound(arr2) + 1, 1) = Application.Transpose(arr2)
End Sub

dcw0402

原帖由 Scarlett_88 于 2009-6-30 02:40 发表
本人做了一个EXCEL版的，我还没装SQL server 况且我的系统为英文版的，在SQL server 中要用到游标，思路是先将合同号用Distinct出唯一值，用游标嵌套查询，下个月回中国，到时再看看

双击sheet2工作表单元格执行查 ...

得引用一下 ADO  2.X库 测试通过,收藏了

A7210185

我用if可以做到我用if可以做到

注意：删除c1后注意，单元格上移 然后在c列的最后一行输入1

[ 本帖最后由 A7210185 于 2009-7-2 21:43 编辑 ]