Help wanted!!!

Hello All (Will33, where are you?!) Right now I am working on a program using Report Sharp-Shooter by 9Rays.Net. The purpose of the program is to create a monthly invoice of orders for one vendor and calculate a balance of payment due. Right now, I have just started the program so I am not very far along yet. The sample project includes an Access database file (.mdb). The program has one form with a button and two ComboBoxes on it. In one ComboBox is a list of Vendors. In the other ComboBox is a list of dates, year and month. (Right now, ComboBox2 is not being used in the program so please disregard this combo box). In the Button1_Click event, I create a OleDbConnection object, a OleDbCommand object, a OleDbDataAdapter object, and a DataSet. When the button is clicked, the vendor's name selected in the ComboBox is passed into the OleDbCommand object's SQL text and then the data relating to that vendor is retrieved from the database. The OleDbDataAdapter fills that data into the DataSet1. As I stated above, since the dataset is created at runtime, I do not know how to handle the datasources for the ReportGenerator or for the DataBands. I have tried several different approaches included the one used in the sample program, "XmlDataSourceExample" but to no avail. Can you give me some suggestions as to how I would approach this problem?

You should do something like this. Hope this helps. 'adding tables into report generator ReportGenerator1.DataSources.Add("Vendors", DataSet1.Tables("Vendors")) ReportGenerator1.DataSources.Add("Products", DataSet1.Tables("Products")) ReportGenerator1.DataSources.Add("Orders", DataSet1.Tables("Orders")) ReportGenerator1.DataSources.Add("Payments", DataSet1.Tables("Payments")) 'then indicate a data source for the DataBand Dim data As NineRays.Reporting.DOM.DataBand = ReportGenerator1.Template.ControlByName("dataBand1") data.DataSource = "Vendors" data = ReportGenerator1.Template.ControlByName("Products") data.DataSource = "Products" 'extract data for a textbox Dim t As NineRays.Reporting.DOM.TextBox = ReportGenerator1.Template.ControlByName("textBox1") t.DataBindings.Add(New NineRays.Reporting.DOM.ReportDataBinding("Value", "GetData(""Vendors.VendorName"")")) If you still have questions, please feel free to contact me.

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

twnr3321y ago
You should do something like this. Hope this helps. 'adding tables into report generator ReportGenerator1.DataSources.Add("Vendors", DataSet1.Tables("Vendors")) ReportGenerator1.DataSources.Add("Products", DataSet1.Tables("Products")) ReportGenerator1.DataSources.Add("Orders", DataSet1.Tables("Orders")) ReportGenerator1.DataSources.Add("Payments", DataSet1.Tables("Payments")) 'then indicate a data source for the DataBand Dim data As NineRays.Reporting.DOM.DataBand = ReportGenerator1.Template.ControlByName("dataBand1") data.DataSource = "Vendors" data = ReportGenerator1.Template.ControlByName("Products") data.DataSource = "Products" 'extract data for a textbox Dim t As NineRays.Reporting.DOM.TextBox = ReportGenerator1.Template.ControlByName("textBox1") t.DataBindings.Add(New NineRays.Reporting.DOM.ReportDataBinding("Value", "GetData(""Vendors.VendorName"")")) If you still have questions, please feel free to contact me.
0