کمک کنید

[RamezanBeik]

برنامه ای نوشته ام
حالا میخو ام وفتی رو gride کلیک می کنم اطلا عات رکورد جاری مثلا در نما یش کامل نشان داده بشه ولی این کا رو انجام نمیده و فقط ااطلاعات رکورد اول منو به نمایش در میاورد.
من این برنامه رو اینجا می زارم یک نگاخ بخش بندازید. در صورت امکان درستش کنید یا راهنمایی کنید .
در صورت امکان به mail من به ادرس زیر ارسال کنید:

RamezanBeik@gmail.com

با تشکر.

[vahab_vb]

میدونید باید چیکار کنید. شما باید همون گریدها رو فیلد اولش رو مخفی کنید (یعنی طول اونو صفر کنید که دیده نشه) ولی توش شماره ID رکوردها رو بزارید.
من همین الان دقیقا همین جای برنامم هستم. دارم یه برنامه کنترل انبارداری مینویسم.
بعد وقتی که اینکارو کردید. کاربر که ماوسش رو میزاره مثلا روی سطر 3 کد زیر اجرا میشه. مثلا :



On Error Resume Next

'/FIND SELECTED ROWS
Dim REC_FROM As Long
Dim REC_TO As Long
Dim REC_COUNT As Long

Call WHICH_ROWS(Me.MFG_GENERAL, REC_FROM, REC_TO, REC_COUNT)
MOSHAHEDE_AZ_CODE = CLng(Me.MFG_GENERAL.TextMatrix(REC_FROM, 1))

Public Sub WHICH_ROWS(ByVal THE_TABLE As Object, ByRef REC_FROM As Long, ByRef REC_TO As Long, ByRef REC_COUNT As Long)
On Error Resume Next
Dim R1 As Long
Dim R2 As Long
Dim RM As Long 'THE FINAL FIRST PLACE
Dim RM2 As Long ' THE FINAL SECOND PLACE
Dim RR As Long ' THE TOTAL SELECTION
'proccess for get values of Rm\Rm2
R1 = THE_TABLE.Row
R2 = THE_TABLE.RowSel
Select Case R1
Case Is < R2
RR = R2 - (R1 - 1)
RM = R1
RM2 = R2
Case Is > R2
RR = R1 - (R2 - 1)
RM = R2
RM2 = R1
Case Is = R2
RR = 1
RM = R1
RM2 = R1
End Select

REC_FROM = RM
REC_TO = RM2
REC_COUNT = RR
End Sub



این سابی رو هم که گذاشتم آرگومانها رو بصورت byref بر میگردونه. خیلی قدرتمنده. سوال داشتید در خدمتم