kaka2438
شنبه 28 بهمن 1391, 00:19 صبح
با سلام
من برای گروه بندی اطلاعات از کد نویسی استفاده کردم اما هر کاری میکنم نمی تونم گروه بندی بر اساس فیلد دیگه ای که کابر میخواد انجام بدم و پیش فزض رو عوض کنم اگه عوض کنم باز به حالت پیش فرض بر میگرده
منتظر یازی سبرتان هستیم
اینم کد برنامه
پیش فزض(mony)
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
Dim myreport As New CrystalReport1()
Dim crgroups As CrystalDecisions.CrystalReports.Engine.Groups
Dim crgroup As CrystalDecisions.CrystalReports.Engine.Group
Dim crfield As CrystalDecisions.CrystalReports.Engine.FieldDefini tion
"(crfield = myreport.Database.Tables("temp").Fields("mony
crgroups = myreport.DataDefinition.Groups
For Each crgroup In crgroups
If crgroup.ConditionField.Name = "mony" Then
crgroup.ConditionField = crfield
End If
Next
CrystalReportViewer1.ReportSource = myreport
() CrystalReportViewer1.Refresh
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
Dim myreport As New CrystalReport1()
Dim crgroups As CrystalDecisions.CrystalReports.Engine.Groups
Dim crgroup As CrystalDecisions.CrystalReports.Engine.Group
Dim crfield As CrystalDecisions.CrystalReports.Engine.FieldDefini tion
(" crfield = myreport.Database.Tables("temp").Fields("famili
crgroups = myreport.DataDefinition.Groups
For Each crgroup In crgroups
If crgroup.ConditionField.Name = "famili" Then
crgroup.ConditionField = crfield
End If
Next
CrystalReportViewer1.ReportSource = myreport
() CrystalReportViewer1.Refresh
End Sub
من برای گروه بندی اطلاعات از کد نویسی استفاده کردم اما هر کاری میکنم نمی تونم گروه بندی بر اساس فیلد دیگه ای که کابر میخواد انجام بدم و پیش فزض رو عوض کنم اگه عوض کنم باز به حالت پیش فرض بر میگرده
منتظر یازی سبرتان هستیم
اینم کد برنامه
پیش فزض(mony)
Private Sub RadioButton3_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton3.CheckedChanged
Dim myreport As New CrystalReport1()
Dim crgroups As CrystalDecisions.CrystalReports.Engine.Groups
Dim crgroup As CrystalDecisions.CrystalReports.Engine.Group
Dim crfield As CrystalDecisions.CrystalReports.Engine.FieldDefini tion
"(crfield = myreport.Database.Tables("temp").Fields("mony
crgroups = myreport.DataDefinition.Groups
For Each crgroup In crgroups
If crgroup.ConditionField.Name = "mony" Then
crgroup.ConditionField = crfield
End If
Next
CrystalReportViewer1.ReportSource = myreport
() CrystalReportViewer1.Refresh
End Sub
Private Sub RadioButton4_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton4.CheckedChanged
Dim myreport As New CrystalReport1()
Dim crgroups As CrystalDecisions.CrystalReports.Engine.Groups
Dim crgroup As CrystalDecisions.CrystalReports.Engine.Group
Dim crfield As CrystalDecisions.CrystalReports.Engine.FieldDefini tion
(" crfield = myreport.Database.Tables("temp").Fields("famili
crgroups = myreport.DataDefinition.Groups
For Each crgroup In crgroups
If crgroup.ConditionField.Name = "famili" Then
crgroup.ConditionField = crfield
End If
Next
CrystalReportViewer1.ReportSource = myreport
() CrystalReportViewer1.Refresh
End Sub