dataGrid

[תימני זה הכי אחי]

dataGrid

יש לי grid עם רשומות שהתקבלו כתוצאה משאילתה שעשיתי. אני מעוניין לעבור על כל הרשומות ב grid עם לולאת for הבעיה שלא מצאתי מאפיין "מספר רשומות" ב grid או שפספסתי ??? בעיה נוספת... נניח ואני מכיר את מספר הרשומות בgrid ועושה לולאת for ועובר רשומה רשומה אני רוצה לבדוק תנאי מסויים שעובד עם השדה הראשון באותה שורה כאילו עמודה 0 . יש הצעות ?

 

[תימני זה הכי אחי]

אופס סליחה על חוסר השרשור

להודעה קודמת שלי פה בעמוד זה.. מצטער... לא שמתי לב.

 

[מס1]

זה לא במאפיינים של הדאטה גריד

ראה דוגמא

If Not rstFromQuery.eof = True Then str = "SELECT ..........;" Adodc2.RecordSource = str Adodc2.Refresh Me.Refresh DataGrid1.Refresh rstFromQuery.MoveLast Win = rstFromQuery.RecordCount מספר הרשומות End If​

 

[תימני זה הכי אחי]

ואיך ניגשים לרשומה עם האינדקס ?

כלומר אחרי שמצאתי את מספר הרשומות ועושה לולאת for לדוגמא -

for i=0 to recordCount-1 תנאי לפי - dataGrid.מספר רשומה לפי אינדקס next i​

האם אפשר להתייחס לרשומה מסויימת בגריד לפי אינדקס של הלולאה ( בלי שהיא תיהיה מסומנת בהדגשה ) ??

 

[מס1]

ראה דוגמא

Text1 = frmworkhours2.grdDataGrid.Columns(0) Text2 = frmworkhours2.grdDataGrid.Columns(1) Text3 = frmworkhours2.grdDataGrid.Columns(2) Text4 = frmworkhours2.grdDataGrid.Columns(3)​

ואפשר הפוך להציב לתוך זה ערכים

 

[מס1]

ועוד דוגמא

If Text3 <> "" And Text4 <> "" Then dbs.Execute "UPDATE workhours set intime = #" & Text3 & "#,outtime = #" & Text4 & "# WHERE workernum = " & Text1 & " and transnum =" & frmworkhours2.grdDataGrid.Columns(5) & "" frmworkhours2.grdDataGrid.Columns(2) = Format(Text3, "hh:mm:00") frmworkhours2.grdDataGrid.Columns(3) = Format(Text4, "hh:mm:00") MsgBox " !!! øùåîä òåãëðä ", vbExclamation + vbOKOnly End If​

 

[תימני זה הכי אחי]

תודה

 

[מס1]

שמחתי לעזור א...