davood59
یک شنبه 22 دی 1387, 09:47 صبح
سلام دوستان؛
یک سوالی برام پیش اومده که اگه امکانش هست جوابمو بدید.
ببینید من بعد از اینکه کاربر اطلاعاتش رو وارد کرد و پیغامی مبنی بر "آیا مایل به بروز رسانی هستید؟" پیغام " اطلاعات به درستی به روز شد" رو براش نشون میدم. طبق کد ذیل. حالا من یک سوال دارم, چجوری به محض اینکه پیغام دوم به کاربر نشون داده شد، vsflexgrid رو رفرش کنم؟ یعنی کاربر بدون اینکه برنامه رو ببنده و دوباره اجرا کنه بره پایین لیست و اسمی رو که وارد کرده بدون زدن کلیدی و یا دکمه ای مبنی بر بروز رسانی فوراً لیست رو بصورت آپدیت شده ببینه.
اینهم کد:
If MsgBox("اطلاعات بدرستي بروز شد" & vbCrLf & "آيا مايل به بروز رساني ليست هستيد ؟", vbInformation + vbMsgBoxRtlReading + vbYesNo + vbMsgBoxRight) = vbYes Then
Form1.ShowGrid Form1.VS.DataRefresh
End If
Unload Me
لازم به ذکره که من نام vsflexgrid رو به vs تغییر دادم و در این حالت vb به من خطای type mismatch رو میده. و روی این دستور (vs.datarefresh ) خطا میگیره.
با تشکر
یک سوالی برام پیش اومده که اگه امکانش هست جوابمو بدید.
ببینید من بعد از اینکه کاربر اطلاعاتش رو وارد کرد و پیغامی مبنی بر "آیا مایل به بروز رسانی هستید؟" پیغام " اطلاعات به درستی به روز شد" رو براش نشون میدم. طبق کد ذیل. حالا من یک سوال دارم, چجوری به محض اینکه پیغام دوم به کاربر نشون داده شد، vsflexgrid رو رفرش کنم؟ یعنی کاربر بدون اینکه برنامه رو ببنده و دوباره اجرا کنه بره پایین لیست و اسمی رو که وارد کرده بدون زدن کلیدی و یا دکمه ای مبنی بر بروز رسانی فوراً لیست رو بصورت آپدیت شده ببینه.
اینهم کد:
If MsgBox("اطلاعات بدرستي بروز شد" & vbCrLf & "آيا مايل به بروز رساني ليست هستيد ؟", vbInformation + vbMsgBoxRtlReading + vbYesNo + vbMsgBoxRight) = vbYes Then
Form1.ShowGrid Form1.VS.DataRefresh
End If
Unload Me
لازم به ذکره که من نام vsflexgrid رو به vs تغییر دادم و در این حالت vb به من خطای type mismatch رو میده. و روی این دستور (vs.datarefresh ) خطا میگیره.
با تشکر