PDA

View Full Version : انتقال اطلاعات گرید بین فرمها



packet
شنبه 28 مرداد 1391, 02:28 صبح
سلام خدمت اساتید
من 3تا فرم دارم که میخوام اطلاعات grig فرم سوم رو در فرم دوم بریزم با کد زیر اگه پروژه رو از فرم 2 اجرا کنم خوب کار میکنه

code = MyDGV1.SelectedRows.Item(0).Cells(0).Value
FrmForoshandeh.txttypehamkar.Text = code

ولی اگه از فرم اول فرم دوم رو صدا بزنم و بعد از فرم دوم فرم سوم رو صدا بزنم دیگه اطلاعات gridفرم سوم به قرم دوم نمیره چیکار کنم ؟:گریه:
در ضمن با showdialog فرم را صدا میزنم

packet
شنبه 28 مرداد 1391, 10:05 صبح
ببخشید یکی نیست به منه پیرمرد کمک کنه؟؟؟:گریه:

hamidkh
شنبه 28 مرداد 1391, 11:44 صبح
سلام
اگه میتونید کد صدازدن فرمها رو بذارین تا ببینیم مشکل چیه.

packet
شنبه 28 مرداد 1391, 15:12 عصر
Dim f As New FrmSearchTypeHamkar
FrmSearchTypeHamkar.ShowDialog()
من هر سه تا فرم رو با همین دستور صدا میزنم

h_assefi
شنبه 28 مرداد 1391, 16:00 عصر
دوست عزیز شما بهتره از متد show استفاده کنی نه showdialog چون وقتی از showdialog استفاده می کنی کنترل فرم فقط بر روی فرم فعال هستش و نمی تونه به فرم قبلیش بره

packet
یک شنبه 29 مرداد 1391, 00:24 صبح
آخه وقتی 2 تا فرم باشه با همون showdialog کار میکنه وقتی 3تا فرم روی هم باز میشه دیگه از فرم 3 هیچ اطلاعاتی به فرم 2 نمیره در ضمن با show هم کار نکرد چیکار کنم ؟؟؟؟؟:گریه:

packet
چهارشنبه 01 شهریور 1391, 00:56 صبح
یعنی تا حالا هیچکس به این مشکل بر نخورده؟؟؟؟

sahar1982
چهارشنبه 01 شهریور 1391, 10:21 صبح
یعنی تا حالا هیچکس به این مشکل بر نخورده؟؟؟؟


كدتون يا نمونه بذارين تا بشه بهتر نظر داد. چون نبايد مشكلي وجود داشته باشه.

packet
چهارشنبه 01 شهریور 1391, 11:37 صبح
آقا این برنامه من رو ببین اگه از فرم 2 اجرا بشه کار میکنه ولی اگه از فرم 1 اجرا بشه دیگه کار میکنه

hamidkh
چهارشنبه 01 شهریور 1391, 13:09 عصر
آقا فرم 2 رو به عنوان یک پارامتر به فرم 3 بفرس. اونجا ازش استفاده کن

packet
چهارشنبه 01 شهریور 1391, 18:27 عصر
ممنون ولی چطوری ؟؟
ببخشید من تازه کارم می شه لطف کنی کدش رو بنویسی؟؟:خجالت:

hamidkh
چهارشنبه 01 شهریور 1391, 19:55 عصر
سلام
کد فرم 3 رو اینطور کنید


Public Class Form3
Private mCode As Form2


Public Sub New(ByVal frm As Form2)
mCode = frm

InitializeComponent()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
mCode.TextBox1.Text
= TextBox1.Text

mCode.TextBox2.Text =
TextBox2.Text
Me.Close()


End Sub

End Class


توی فرم 2 هم به اینطور فرم 3 رو فراخوانی کنید


Dim aa As New Form3(Me)

packet
چهارشنبه 01 شهریور 1391, 23:14 عصر
آقا خیلی ممنون تست میکنم لطف کردید

hamidkh
چهارشنبه 01 شهریور 1391, 23:31 عصر
کدش رو نوشتم.مشکل دیگری دارین؟

packet
چهارشنبه 01 شهریور 1391, 23:39 عصر
آقا خیلی ممنون ولی الان دیگه فرم 3 با دستور showdialog باز نمیشه چیکار کنم؟؟؟؟

packet
چهارشنبه 01 شهریور 1391, 23:57 عصر
حل شد حل شد حل شد حل شد حل شد خیلی ممنون یه مشکل گنننده رو از جلوی پای من برداشتید:لبخند: