עזרה בתרגום ובפיענוח

[24sharon]

עזרה בתרגום ובפיענוח

אני בהמרת קוד שנכתב בVB. יש לי משפט כזה:

Set cnRs = fRs.Clone(adLockReadOnly)​

ואני רוצה לדעת מה המשמעות שלו. תודה ושבת שלום!

 

[24sharon]

והנה הקוד המלא

Dim dfRs As ADODB.Recordset Set dfRs = New ADODB.Recordset dfRs.Open "fdf", db, adOpenStatic, adLockOptimistic Set cnRs = fRs.Clone(adLockReadOnly) fRs.Filter = "P < 1" fRs.MoveFirst While Not fRs.EOF cnRs.Filter = "ID = '" & fRs("ID") & Chr(39) dfRs.Filter = "id = '" & Trim(fRs("Subject")) & Chr(39) 'If Trim(fRs("Subject")) = "ç÷øðé" Or Trim(fRs("Subject")) = "áéöåòé" Then Stop Total = cnRs("ñäë") TotalProf = cnRs("î÷öåòåú") TotalSkil = cnRs("ëùøéí") TotalAct = cnRs("ôòéìåéåú") If (TotalAct - TotalSkil) > dfRs("PK") And (TotalAct - TotalProf) > dfRs("PM") Then UpdateClass cnRs, "G3" ElseIf (TotalAct - TotalSkil) > dfRs("PK") Then UpdateClass cnRs, "G1" ElseIf (TotalAct - TotalProf) > dfRs("PM") Then UpdateClass cnRs, "G2" End If If (TotalSkil - TotalProf) > dfRs("KM") And (TotalSkil - TotalAct) > dfRs("KP") Then UpdateClass cnRs, "G6" ElseIf (TotalSkil - TotalProf) > dfRs("KM") Then UpdateClass cnRs, "G5" ElseIf (TotalSkil - TotalAct) > dfRs("KP") Then UpdateClass cnRs, "G4" End If If (TotalProf - TotalAct) > dfRs("MP") And (TotalProf - TotalSkil) > dfRs("MK") Then UpdateClass cnRs, "G9" ElseIf (TotalProf - TotalAct) > dfRs("MP") Then UpdateClass cnRs, "G8" ElseIf (TotalProf - TotalSkil) > dfRs("MK") Then UpdateClass cnRs, "G7" End If fRs.MoveNext Wend​

אולי מי שבנה אותו מסתובב כאן ויוכל לעזור לי בפתרון

תודה!

 

[24sharon]

OK תודה הסתדרתי, שבת שלום!