例如三列資料A列B列C列
A B C
1 001 a
1 002 b
1 001 a
1 002 b
1 002 b
2 001 a
如果A B C三列資料相同則給予同一個編號 運行結果如：
A B C NO
1 001 a 01
1 002 b 02
1 001 a 01
1 002 b 02
1 002 b 02
2 001 a 03
請求高手幫助
uj5u.com熱心網友回復：
沒說資料庫oracle 的話如下可實作,sqlserver試試看應該也行
select ta.* ,tb.NO
from
table as ta,
(select a,b,c row_number() over(partition by null order by null) as NO from table group by a,b,c) as tb
where ta.a=tb.a and ta.b=tb.b and ta.c=tb.c
uj5u.com熱心網友回復：
在表單上添加一個 ListBox，可以設定為不可見。Option Explicit
Private Declare Function SendMessagebyString Lib _
"user32" Alias "SendMessageA" (ByVal hWND As Long, _
ByVal wMsg As Long, ByVal wParam As Long, _
ByVal lParam As String) As Long
Private Const LB_FINDSTRINGEXACT = &H1A2
Private Sub Command1_Click()
Dim cn As ADODB.Connection, rs As ADODB.Recordset
Dim strLine As String, n As Long
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test\test.mdb;"
rs.Open "select * from table8", cn, adOpenKeyset, adLockOptimistic
List1.Clear
Do Until rs.EOF
strLine = rs!A & rs!B & rs!C
n = SendMessagebyString(List1.hWND, LB_FINDSTRINGEXACT, -1, strLine)
If n = -1 Then
List1.AddItem strLine
rs!No = List1.NewIndex + 1
Else
rs!No = n + 1
End If
rs.Update
rs.MoveNext
Loop
End Sub
uj5u.com熱心網友回復：
access…… 我一直認為這是個頂著資料庫名稱的殘廢uj5u.com熱心網友回復：
我到現在為止，還沒有寫出過比它強大的資料庫系統，所以不方便評論。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/46899.html