PDA

View Full Version : اشکال با Flexgrid در فرم MDI



unforgiven
سه شنبه 19 اردیبهشت 1385, 23:47 عصر
سلام به دوستان
اگه ممکنه منو راهنمایی کنید
من یک شی پیکچر رو در فرم ام دی آی به صورت یک ساید تولبار قرار دادم و روی این
پیکچر دو تا شی ام اس فلکس گرید برای نشان دادن گزارش روزانه قرار دادم
یک گرید برای تمدید ثبت نام و یکی برای دیر کرد شهریه
وقتی داخل فرم لود ام دی آی کد کواری مربوط به این افراد رو میزارم یه اشکال به وجود میاد .
در واقع وقتی یکی از این گرید ها پر باشه مشکلی نیست ولی وقتی هر دو پر میشن اشکال میگیره
ضمنا هر دو در یک تیبل هستند و از دآو و از شی دیتا استفاده میکنم اینم نمونه کد



Private Sub MDIForm_Load()
Text1.Text = To_Hejri(Now, 0)


Data1.DatabaseName = App.Path & "\storage.mdb"
Data1.RecordSource = "info"
Data1.RecordSource = "select شماره_عضو, نام, نام_خانوادگی from info where ثبت_نام ='" & Text1.Text & "' "
Data1.Refresh
MSFlexGrid1.ColAlignment(0) = 4
MSFlexGrid1.ColAlignment(1) = 0
MSFlexGrid1.ColAlignment(2) = 0

With MSFlexGrid1
.TextMatrix(0, 0) = " شماره عضو "
.TextMatrix(0, 1) = " نام "
.TextMatrix(0, 2) = " نام خانوادگی "
End With

Data2.DatabaseName = App.Path & "\storage.mdb"
Data2.RecordSource = "info"
Data2.RecordSource = "select شماره_عضو, نام, نام_خانوادگی from info where شهریه ='" & Text1.Text & "' "
Data2.Refresh
MSFlexGrid2.ColAlignment(0) = 4
MSFlexGrid2.ColAlignment(1) = 0
MSFlexGrid2.ColAlignment(2) = 0

With MSFlexGrid2
.TextMatrix(0, 0) = " شماره عضو "
.TextMatrix(0, 1) = " نام "
.TextMatrix(0, 2) = " نام خانوادگی "
End With
End Sub

unforgiven
چهارشنبه 20 اردیبهشت 1385, 23:33 عصر
خواهشا جواب بدید
قبلا اوضاع خیلی بهتر خواهشا جواب بدید
قبلا اوضاع خیلی بهتر

farzad sahraei
پنج شنبه 21 اردیبهشت 1385, 16:09 عصر
اولا اشتباه محض کردی که اسامی فیلد هاتو فارسی گرفتی
بعد درمورد مشکلت من نفهمیدم چه اتفاقی می افته بیشتر توضیح بده