unforgiven
چهارشنبه 20 اردیبهشت 1385, 00: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
اگه ممکنه منو راهنمایی کنید
من یک شی پیکچر رو در فرم ام دی آی به صورت یک ساید تولبار قرار دادم و روی این
پیکچر دو تا شی ام اس فلکس گرید برای نشان دادن گزارش روزانه قرار دادم
یک گرید برای تمدید ثبت نام و یکی برای دیر کرد شهریه
وقتی داخل فرم لود ام دی آی کد کواری مربوط به این افراد رو میزارم یه اشکال به وجود میاد .
در واقع وقتی یکی از این گرید ها پر باشه مشکلی نیست ولی وقتی هر دو پر میشن اشکال میگیره
ضمنا هر دو در یک تیبل هستند و از دآو و از شی دیتا استفاده میکنم اینم نمونه کد
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