سلام
بنده در ویژال بیسیک یه برنامه طراحی کردم میخواد اطلاعات یک جدول را که فیلتر کردم رو به یک جدول مشخص جدید انتقال بده این کار رو انجام دادم تو همون برنامه واسه جدول دیگه اما تو این جدول مشکل دارم 2تا رکورد هست ولی فقط یک رکورد رو انتقال میده هرچند رکورد هست یک دونه رو نمیاره لطفا راهنماییم کنید باید سریع تحویل بدم
کد برنامه
Adodc2.recordset.MoveFirst
Do While Adodc2.recordset.EOF = False
Adodc3.recordset.AddNew
Adodc3.recordset.Fields("sal") = Adodc2.recordset.Fields("sal")
Adodc3.recordset.Fields("dore") = Adodc2.recordset.Fields("dore")
Adodc3.recordset.Fields("mantaghe") = Main.Label7.Caption
Adodc3.recordset.Fields("madrese") = Adodc2.recordset.Fields("madrese")
Adodc3.recordset.Fields("codedars") = Adodc2.recordset.Fields("codedars")
Adodc3.recordset.Fields("shdanesh") = Adodc2.recordset.Fields("shdanesh")
Adodc2.recordset.MoveNext
Loop
List1.AddItem "ÇÓÊÎÑÇÌ ÏÇÏå åÇí ÇØáÇÚÇÊ ÓÇá æ ÏæÑå ÊÍÕíáí ÈÇ ãæÝÞíÊ ÇäÌÇã ÑÏíÏ"
List1.AddItem "ÊÚÏÇÏ Ñ˜æÑÏ åÇí ÇÓÊÎÑÇÌ ÔÏå : " & " " & Adodc3.recordset.RecordCount
List1.AddItem "ÌÏæá ÇÓÊÎÑÇÌ ÔÏå : ÇäÊÎÇÈ æÇÍÏ"
List1.AddItem "--------------------------------------------------------------------------------------------------------------------------------------------------------------------------"
XPPanel5.Theme = [XP Light Green]
Else
MsgBox "ÇØáÇÚÇÊí ÈÑÇí Çíä ÏæÑå æ ÓÇá ÊÍÕíáí æÌæÏ äÏÇÑÏ"
Unload Me
End If
پاسخ با نقل قول
