ايجاد رديف در گزارشگيري

[takparan]

من مي خوام از بانكم با ديتا ريپورت گزارش بگيرم ولي يه مشكلي هست نمي دونم چطوري بايد فيلد رديف ايجاد كنم منظورم به اين صورته
رديف نام نام پدر
1 ابراهيم يزداني قاسم
2 محمد رحيمي ايكس
3 علي رحيمي ايگرگ

.
نمي خوام از فيلد رديف استفاده كنم چون وقتي از يه بخش خاص پرينت مي گيرم فيلد رديف شماره هاش به هم مي خوره

[torshizi]

در جنرال دیتا ریپورت گذاشته شودDim WithEvents myf As StdDataFormatDim RECORDNUM As LongPrivate Sub DataReport_Initialize() RECORDNUM = 0 Set myf = New StdDataFormat Set lowReport.Sections("sections1").Controls("TEXT1"). DataFormat = myf Dat1.rscommand1.Sort = "name" If Dat1.rscommand1.State = 1 Then Dat1.rscommand1.Close End If Dat1.rscommand1.OpenEnd SubPrivate Sub myf_Format(ByVal DataValue As StdFormat.StdDataValue) RECORDNUM = RECORDNUM + 1 DataValue = RECORDNUMEnd Sub