[求助]如何在subform中对每一行进行auto increment

zhangyifeng

我在msdn上看到过这个例子，但是现在找不到了，找了2天，都还没找到。
anyone can help me here? thanks!

ADAM

可以這樣做:
1.先在MODEL中做個函數
Function GETLINEID(Form1 As Form, V1 As Variant)
Dim COUNT1 As Integer
Dim RS As Object
On Error GoTo AA
Set RS = Form1.RecordsetClone
RS.FindFirst "[識別碼]=" & V1
Do Until RS.BOF
COUNT1 = COUNT1 + 1
RS.MovePrevious
Loop
GETLINEID = COUNT1
Exit Function
AA:
GETLINEID = 0
End Function

2.在子表單中增加個ID的文本框
將它的數據源設為:
=GETLINEID([FORM],[識別碼])

3.這樣就搞定了吧....
嘿嘿.....

zhangyifeng

Thanks, ADAM
I found the function I need from Microsoft too.
http://support.microsoft.com/default.aspx?scid=kb;en-us;210340&roduct=acc

But thank you anyway and you deserve to get some score points.