سلام . من دوتا باتون دارم که یکی ده تا ، ده تا یه فیلد خاص رو زیاد میکنه و یکی دیگه هم ه تا ده تا کم میکنه. حالا مشکل اینجاست که باتون دومی به جای کم کردن ، میاد یکی یکی میره بالا!! چند مدل هم دستکاریش کردم یا نمیره یا زیاد میشه ولی اصلا کم کردن توکارش نیست :
Sub ok1_Click
Dim cur As Cursor
cur = db.ExecQuery("SELECT * FROM marha_tab")
For i = cur.RowCount+1 To cur.RowCount + 10
db.ExecNonQuery("INSERT INTO marha_tab(score) VALUES ('" & i & "')")
Next
edittext1.Text = "مقدار :"& cur.RowCount
cur.Close
End Sub
Sub ok2_Click
Dim cur As Cursor
cur = db.ExecQuery("SELECT * FROM marha_tab")
For i = cur.RowCount-1 To cur.RowCount - 10
db.ExecNonQuery("INSERT INTO marha_tab(score) VALUES ('" & i & "')")
Next
edittext1.Text = "مقدار :"& cur.RowCount
cur.Close
End Sub
سوال
vistamobile 1,700
سلام . من دوتا باتون دارم که یکی ده تا ، ده تا یه فیلد خاص رو زیاد میکنه و یکی دیگه هم ه تا ده تا کم میکنه. حالا مشکل اینجاست که باتون دومی به جای کم کردن ، میاد یکی یکی میره بالا!! چند مدل هم دستکاریش کردم یا نمیره یا زیاد میشه ولی اصلا کم کردن توکارش نیست :
Sub ok1_Click Dim cur As Cursor cur = db.ExecQuery("SELECT * FROM marha_tab") For i = cur.RowCount+1 To cur.RowCount + 10 db.ExecNonQuery("INSERT INTO marha_tab(score) VALUES ('" & i & "')") Next edittext1.Text = "مقدار :"& cur.RowCount cur.Close End Sub Sub ok2_Click Dim cur As Cursor cur = db.ExecQuery("SELECT * FROM marha_tab") For i = cur.RowCount-1 To cur.RowCount - 10 db.ExecNonQuery("INSERT INTO marha_tab(score) VALUES ('" & i & "')") Next edittext1.Text = "مقدار :"& cur.RowCount cur.Close End Subلینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسال‌های توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.