سئوال راجع به Data Report

[hr_3303]

سلام دوستان.یه سئوال راجع به Data Report
میخوام توسط Data Report گزارش صندوق یه نرم افزار حسابداری رو بگیرم.
میخوام مبلغ هایی که از حساب کسر شدن با رنگ قرمز و بقیه رو با رنگ مشکی نمایش بده. مثال 5000-

[محسن واژدی]

سلام علیکم
کد زیر بررسی کنید:
Private Sub Command1_Click()
With DataReport1
Set .DataSource = Adodc1
If Adodc1.Recordset.Fields("field_name") < 0 Then .Sections("Section1").Controls("Text1").ForeColor = vbRed
.Show
End With
End Sub

field_name نام فیلد ما در بانک و Text1 هم نام text در section1 در data-report هست

موفق باشید

[میلاد علوی]

نشد لطفا راهنمایی کنید