ارسال محتويات textbox به data report

[ali_mo7670]

با سلام
من مقدار دو textboxكه تارخ باشه رو ميخوام به datareport بفرستم
متشكر

[sohrab o]

RptFaktorA5.Sections(3).Controls("Label7").Caption = String
مقدار string را برای شی label7 از گزارش RptFaktorA5 مقدار بده

[VB Master]

با سلام
من هم همينكار رو مي خواهم انجام دهم اما با اين كد كه شما گفتيد انجام نميشه .
مشكل كجاست ؟

[VB Master]

دوستان كسي نيست مشكل منو حل كنه ؟
ميخوام محتويات تكس باكس رو در Label1 در Section4 گزارشم نمايش بدم .
چكار كنم ؟
با اين كدي كه اين دوستمون گفت نشد اررور ميده

[saeid79]

سلام
فکر کنم این مشکلتون رو حل کنه
اول تابع

Function fdate(dat As Date, far As Boolean)

Dim DD, yy, mm, HH, idays, ldays, FF, GG, qstr
Dim d(12), dy(7)
yy = Year(dat)
d(1) = 31
If (yy / 4) = Int(yy / 4) Then
d(2) = 29
Else
d(2) = 28
End If
dy(1) = "íßÔäÈå"
dy(2) = "ÏæÔäÈå"
dy(3) = "Óå ÔäÈå"
dy(4) = "åÇÑÔäÈå"
dy(5) = "ÈäÌÔäÈå"
dy(6) = "ÂÏíäå"
dy(7) = "ÔäÈå"
d(3) = 31
d(4) = 30
d(5) = 31
d(6) = 30
d(7) = 31
d(8) = 31
d(9) = 30
d(10) = 31
d(11) = 30
d(12) = 31
mm = 0
For I = 1 To Month(dat) - 1
mm = mm + d(I)
Next
yy = yy - 1
DD = Day(dat)
ldays = (yy * 365) + (Int(yy / 4)) + mm + DD
idays = ldays - 226899
FF = LTrim(Str(Month(dat)))
GG = LTrim(Str(Day(dat)))
If Len(FF) < 2 Then
FF = "0" + FF
End If
If Len(GG) < 2 Then
GG = "0" + GG
End If
HH = FF + GG
If HH <= "0320" Then
yy = Year(dat) - 622
Else
yy = Year(dat) - 621
End If
mm = idays - (Int(yy / 4)) - ((yy - 1) * 365)
If mm <= 186 Then
DD = mm Mod 31
If DD = 0 Then
DD = 31
mm = Int(mm / 31)
Else
mm = Int(mm / 31) + 1
End If
Else
mm = mm - 186
DD = mm Mod 30
If DD = 0 Then
DD = 30
mm = Int(mm / 30) + 6
Else
mm = Int(mm / 30) + 7
End If
End If
If (Year(dat) / 4) = Int(Year(dat) / 4) And HH > "0320" Or (((Year(dat) - 1) / 4) = Int((Year(dat) - 1) / 4) And HH <= "0320") Then
' dd=dd-1
End If
If far Then
qstr = Trim(Str(yy)) + "/" + IIf(Len(Trim(Str(mm))) = 1, Trim("0") + Trim(Str(mm)), Trim(Str(mm))) + "/" + IIf(Len(Trim(DD)) = 1, Trim("0") + Trim(Str(DD)), Trim(Str(DD))) + " " + dy(Weekday(dat))
Else
yy = yy Mod 100
qstr = Str(yy) + "/"
If mm < 10 Then
qstr = qstr + "0" + Trim(Str(mm)) + "/"
Else
qstr = qstr + Trim(Str(mm)) + "/"
End If
If DD < 10 Then
qstr = qstr + "0" + Trim(Str(DD))
Else
qstr = qstr + Trim(Str(DD))
End If
End If

fdate = qstr

End Function

بعد داخل دیتا ریپورت
دوتا Label
بعد کد زیر

Private Sub DataReport_Initialize()
DataReport1.Sections(2).Controls(3).Caption = Time$
DataReport1.Sections(2).Controls(4).Caption = fdate(Date, True)
End Sub

[tnmsoft]

دوست عزيز چيزي كه شما ميخواي اينه نه چيزي كه دوستان گفتن

DataReport1.Sections("Section1").Controls.Item("Label1").Caption=kambiz

[shedayat]

RptFaktorA5.Sections(3).Controls("Label7").Caption = String

این دستور درسته منم امتحانش کردم، جواب داد. :لبخندساده: