PDA

View Full Version : مشكل در VSFlexGrid8



rezankh
چهارشنبه 23 بهمن 1387, 23:43 عصر
با سلام
من اين عمل آپديت رو بوسيله دستورات SQL روي داده ها انجام دادم ولي تا موقعي كه از فرم خارج نشم ويرايش انجام شده در Vsflexgrid8 نشون داده نميشه بعبارتي رفرش نميشه


If Text9.Text = "" Then
Dim f As New ADODB.Command
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text7.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = Text7.Text
Else
With f
.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Information.mdb;"
.CommandText = "UPDATE Table1 SET Table1.Ghrardad = '" & Text8.Text & "' WHERE ((([Table1]![Row])=" & Text6.Text & "));"
.Execute
End With
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = ""

End If

چطوري ميشه همزمان با عمل آپديت VSFlexGrid8 هم آپديت بشه؟

mpmsoft
پنج شنبه 24 بهمن 1387, 09:27 صبح
VSFlexGrid1.TextMatrix(VSFlexGrid1.Row, 40) = ""
منظورتون از این دستور چیه ؟

خاصیت VirtualData رو برابر False بکنید و همچنین DataMode برابر 1 بکن

راههای دیگه هم هست که می تونید نسبت به سناریو پروژتون استفاده بکنید

rezankh
جمعه 25 بهمن 1387, 01:32 صبح
منظورتون از این دستور چیه ؟

خاصیت VirtualData رو برابر False بکنید و همچنین DataMode برابر 1 بکن

راههای دیگه هم هست که می تونید نسبت به سناریو پروژتون استفاده بکنید

با سلام و تشكر
دستتون درد نكنه درست شد ولي تا دستور Adodc2.Refresh رو 2 بار تكرار نكنم عمل آپديت روي گريد نشون داده نميشه كه اين دستور خودش كمي كارو طولاني ميكنه

rezankh
شنبه 26 بهمن 1387, 15:52 عصر
راههای دیگه هم هست که می تونید نسبت به سناریو پروژتون استفاده بکنید[/QUOTE]

با سلام مجدد
mpmsoft عزيز ميشه سناريوهاي ديگه رو هم توضيح بديد يا لااقل يك مثال بذاريد؟
با تشكر