PDA

View Full Version : گزارش اکسلی با ردیف های یک در میان رنگی


jmfnima
جمعه 09 مهر 1389, 12:16 عصر
با سلام به همه دوستان :
میخواستم یک گزارش اکسلی درست کنم به طوری که وقتی گزارش میگیرم ردیف های گزارش اکسلی به صورت یک در میان رنگی باشه .
alirezabahrami
جمعه 09 مهر 1389, 12:24 عصر
با سلام به همه دوستان :
میخواستم یک گزارش اکسلی درست کنم به طوری که وقتی گزارش میگیرم ردیف های گزارش اکسلی به صورت یک در میان رنگی باشه .
سلام
در رخدادDetail_Format كد زير را وارد كن و نتيجه را ببين
ضمناً در اينجا فرض بر اين شده كه نام تكست باكس رديف گزارش txtRow است
و يك نكته ديگر اينكه با توجه به دوكد 12632256, 16777215 رنگ هاي گزارش بصورت يك در ميان سفيد و خاكستري (مايل به مشكي ) است و شما ميتوانيد با تغيير اين دو شماره رنگ ، رنگ هاي مورد نظرت را اعمال نمائيد .


Dim ctl As Control
For Each ctl In Me.Detail.Controls
If TypeOf ctl Is ComboBox Or TypeOf ctl Is TextBox Then
ctl.BackColor = IIf(Me.txtRow Mod 2 = 0, 12632256, 16777215)
End If
Next

موفق باشيد
jmfnima
یک شنبه 11 مهر 1389, 18:17 عصر
با تشكر از دوست عزيز alirezabahrami اين موردي كه شما به آن اشاره كرديد و كد نويسي كرديد مربوط به گزارش در خود اكسس هست من ميخوام كه وقتي گزارش اكسلي گرفتم رديف هاي فايل اكسلي ساخته شده به صورت يك در ميان رنگي باشه .
jmfnima
چهارشنبه 14 مهر 1389, 11:52 صبح
با سلام به همه دوستان :
لطفاً هر كس ميتونه به من در اين زمينه كمك كنه . ممنون
jmfnima
دوشنبه 19 مهر 1389, 11:38 صبح
آیا کسی نیست که این مشکل من رو حل کنه خیلی ضروریه !!!
azadich
سه شنبه 04 آبان 1389, 18:58 عصر
سلام
در رخدادDetail_Format كد زير را وارد كن و نتيجه را ببين
ضمناً در اينجا فرض بر اين شده كه نام تكست باكس رديف گزارش txtRow است
و يك نكته ديگر اينكه با توجه به دوكد 12632256, 16777215 رنگ هاي گزارش بصورت يك در ميان سفيد و خاكستري (مايل به مشكي ) است و شما ميتوانيد با تغيير اين دو شماره رنگ ، رنگ هاي مورد نظرت را اعمال نمائيد .


Dim ctl As Control
For Each ctl In Me.Detail.Controls
If TypeOf ctl Is ComboBox Or TypeOf ctl Is TextBox Then
ctl.BackColor = IIf(Me.txtRow Mod 2 = 0, 12632256, 16777215)
End If
Next

موفق باشيد
اين كد خطا مي داد متوني اصلاش كني