|
For i As Integer = 0 To DataGridView1.Rows.GetRowCount(DataGridViewElementStates.None) - 1
If DataGridView1(2, i).Value Is DBNull.Value Then
MsgBox("you didn't Select Student ID", MsgBoxStyle.Exclamation, "Student ID Missing")
Else
'displaying selected student data on crystal report
If DataGridView1(3, i).Value.ToString = "A" Then
rpt.setdatasource(ds) 'ds is my dataset where student table is found
dim myparams as new new ParameterFields()
dim myparam as ParameterField = new ParameterField()
dim myDiscretevalue as new ParameterDiscreteValue()
'// Set the ParameterFieldName to the name of the parameter
'// created in the Field Explorer
myParam.ParameterFieldName = "StudFullName
'// Add first student
myDiscreteValue.Value = "Peter"
myParam.CurrentValues.Add(myDiscreteValue)
'// Reuse myDiscreteValue, and assign second student
myDiscreteValue = new ParameterDiscreteValue()
myDiscreteValue.Value = "Smith"
myParam.CurrentValues.Add(myDiscreteValue);
'// Add param object to params collection
myParams.Add(myParam)
'// Assign the params collection to the report viewer
myCrystalReportViewer.ParameterFieldInfo = myParams
'// Assign the Report to the report viewer.
'// This method uses a strongly typed report,
'// but other methods are possible as well.
myCrystalReportViewer.ReportSource = MyReportObject
end if
and the problem is it says no valid table. can u help me in correcting this code so that when datagridview row is selected, data for the selected student is displayed on the report
thanks
|
|
|
|
|
You haven't said which line the error throws on.
I also don't use CrystalReports, so I don't know how much help I'm going to be.
|
|
|
|
|
1.With your application you have to create one Dataset-[XSD] file, and create a datatable there and the crystal reports field has to be from xsd.
2.After from a button click(), display thru a crystalreportviewer, but the data from datagridview selected row has to send to dataset which one you have already created from form ds.
Dim ObjRpt As New CrystalReport1
ObjRpt.SetDataSource(DS62.Tables(0))
CrystalReportViewer1.ReportSource = ObjRpt
CrystalReportViewer1.Refresh()
CrystalReportViewer1.Visible = True
From the above, DS62 is the dataset in form. My xsd filename is Dataset1 and Datatable is Datatable1.
|
|
|
|
|
Reply to the original poster, not me. I just got the notification that you replied. The OP didn't.
|
|
|
|
|
Check my previous reply. I hope that can helps you !
|
|
|
|
|
|
Hi all,
This is my first real attempt at playing with networking comms, so be gentle!
I have been struggling to get this to work. I have looked at the examples on here, and countless others returned by Google, i have also been reading the msdn documents, and what i have looks logical and partly works.
What i am trying to do is;
1) Open the TCP connection
2) Read the Byte stream and pass off blocks of bytes for processing elsewhere.
I can succesfully open the connection and async callback are entering the stream reader so I *think* the problem lies in there. I don't know how many different things i have added/removed but still not reading the bytes.
Any clues as to what i am doing wrong?
Private Client As New TcpClient
Private _readBufferSize As Integer = 128
Private ClientStreamBuffer(_readBufferSize) As Byte
Public Event DataToProcess(ByVal Buffer() As Byte)
Public Event ConnectionStateChange(ByVal Connected As Boolean)
Async connect call
Public Sub Connect(ByVal Host As String, ByVal Port As String)
Try
Client.NoDelay = True
Client.ReceiveTimeout = 30
Client.BeginConnect(Host, Port, AddressOf ConnectionResponse, Nothing)
Catch ex As Exception
Debug.WriteLine("Connect Failure: " + ex.Message)
End Try
End Sub
Connection delegate
Private Sub ConnectionResponse(ByVal Ar As IAsyncResult)
Try
'accept the connection
Client.EndConnect(Ar)
RaiseEvent ConnectionStateChange(Client.Connected)
'start an async read of the clients datastream
Client.GetStream.BeginRead(ClientStreamBuffer, 0, _readBufferSize, AddressOf ClientStreamReader, Nothing)
Catch ex As Exception
Debug.WriteLine("TCPIP Connection Failed: " + ex.Message)
End Try
End Sub
Stream Reader;
Private Sub ClientStreamReader(ByVal Ar As IAsyncResult)
Try
Dim bytesRead As Integer = Client.GetStream.EndRead(Ar)
Dim bytesToProcess(bytesRead - 1) As Byte
'Copy data off the buffer into the process array
Array.Copy(ClientStreamBuffer, 0, bytesToProcess, 0, bytesRead)
'do something like raise an event with BytesToProcess
RaiseEvent DataToProcess(bytesToProcess)
'Start the read again
Client.GetStream.BeginRead(ClientStreamBuffer, 0, _readBufferSize, AddressOf ClientStreamReader, Nothing)
Catch ex As Exception
Debug.WriteLine("StreamReader Problem: " + ex.Message)
End Try
End Sub
The next method is what i would use to handle the individual blocks of bytes from the stream;
Handling it locally at the moment, but will probably reside in a different place later. just using it to see what byte blocks are being raised.
Private Sub TCPIPComms_DataToProcess(ByVal Buffer() As Byte) Handles Me.DataToProcess
Debug.WriteLine("Data Buffer Available bytes: " + Buffer.Length.ToString)
'Do something with the bytes...............
End Sub
|
|
|
|
|
First thing I see is that you're not passing anything in as the state tracking object in your BeginConnect and BeginRead calls. You're trying to substitute using class-level objects for state tracking and misusing them. I think that is what is causing your problem.
I normal do something like this. Create a custom object that contains the buffer and Stream being read.
Public Class AsyncReadTracker
Public buffer(20480) As Byte
Public s As Stream
End Class
I create a method to start the Async Read of the incoming stream, creating a new tracking object and passing the buffer in the object to the BeginRead method, as well as the callback delegate and the tracking object itself. You'll see why in a second...
Private Sub StartAsyncRead(ByRef st As Stream)
Dim art As New AsyncReadTracker
art.s = st
Dim ReadAsyncCallback As New AsyncCallback(AddressOf ReadCallback)
st.BeginRead(art.buffer, 0, art.buffer.Length, ReadAsyncCallback, art)
End Sub
In the read callback delegate, the IAsyncResult parameter is there for a reason. Use it. The tracking object will pass the buffer that contains the data and the stream that it was read from to the next call of BeginRead. When BeginRead calls the ReadCallback delegate, it'll pass the tracking object to the delegate. The delegate will pass the stream back to the new call to StartAsyncRead so the same stream can continue to be read.
Private Sub ReadCallback(ByVal asyncResult As IAsyncResult)
Dim art As AsyncReadTracker = DirectCast(asyncResult.AsyncState, AsyncReadTracker)
Dim bytesRead As Integer = art.s.EndRead(asyncResult)
Dim enc As Encoding = Encoding.ASCII
Dim s As String = enc.GetString(art.buffer, 0, bytesRead)
' Do something with the data you just got...
' Now start the Async Read process on the stream we've been using, all over again.
StartAsyncRead(art.s)
End Sub
|
|
|
|
|
Dave,
thanks for the detailed prompt response, i will disect my code and implement your recommendations, and hopefully it will work!
Thanks again,
dave
|
|
|
|
|
Hi,
I have textbox that takes only a fully characters string for example person name.
If the user enter something like (paul123) or (1234),it should get an invalid input.
I try this:
Integer.parse(me.nametextbox.text)
msgbox("invalid")
me.nametextbox.lostfocus
it works when the user types an integer first, it gives the message but user types a character first it goes through..
that is not what I want..
Any idea
Best regard
|
|
|
|
|
It's possible that the test is being interpreted as a hexadecimal number. Instead of using TryParse to determine if it's a good number, use a regular expression instead.
|
|
|
|
|
Thanks,
Can You provide me with an example of relax expression and how to apply?
Thanks again
|
|
|
|
|
Hi,
as you replied that to yourself, you got the notification, Dave didn't.
Anyway, it is regex, not relax. 
FYI: you can prevent some characters from being entered through the keyboard by overriding Control.IsInputChar; or overriding Control.KeyDown and setting SuppressKeyPress true.
However, when you allow for editing, including pasting, you always have to validate the Text itself,
for which a regex could be fine.
I'm not a regex specialist nor regex fan, however IMO
^[0-9]+$ would match a sequence of digits only (^ is start, $ is end, [x-y] is a range of acceptable characters, and + indicates "one or more".
This[^] is supposed to be a very informative site on regexes).
Luc Pattyn [Forum Guidelines] [My Articles]
The quality and detail of your question reflects on the effectiveness of the help you are likely to get.
Show formatted code inside PRE tags, and give clear symptoms when describing a problem.
|
|
|
|
|
i am developing the billing module of a clinical management system in vb.net.i have a data grid in my windows form in which the bill details are generated automatically..i want to pass some of the person details and the datagridvalues to the crystal report so that i can take the printout.how can i pass the values to crystal reports from the windowsform.The datagrid values are taken from seperate seperate tables in the database
|
|
|
|
|
Generally speaking you do it by making separate GUI and data layers.
In other words, you create a separate class that will retrieve data from the database. When you want to show the data in the GUI, you call the class, when you want to print the data, you call the same class.
You can also implement a OrderDetail class with properties for all details. Assign values to the properties in the GUI layer, and then pass the entire object to your crystal report.
My advice is free, and you may get what you paid for.
|
|
|
|
|
can you explain that in more detail???my billing form is working fine...but i dont want to store the patients billing history in the database...so dynamically when the billing details of the particular patient is being added to the datagrid fields,it has to be added to the crystal report as well,so that i can take the print out that time itself.i would also like to store those reports as seperate file in the drive.i dont know whether this is possible in vb.net.bt right now my concentration is on parameter passing dynamically as it gets added in the form
|
|
|
|
|
The question is, how do you retrieve the data from the database? I assume you use a dataset or datatable. So somewhere in your code there is line that looks a little like this:
DataGrid1.DataSource = DataSet1
The dataset / datatable is an object (in memory) that actually contains all the data. The datagrid is really just a window on that data, it does not actually contain the data itself.
That means you can simply loop through all the rows in the dataset / datatable and build your report when the user pushes the print button (or whatever).
myinstincts wrote: i would also like to store those reports as seperate file in the drive.i dont know whether this is possible in vb.net
Yes, this is possible in vb.net. Look into System.IO and the File method.
My advice is free, and you may get what you paid for.
|
|
|
|
|
i dint use dataset  ...i read data using datareader...Below is a portion of my code
If strfee = "consultation fee" Then
cmd1 = New OleDbCommand("select fees from fee_details where type='" + doctorcombobx.SelectedItem + "'", con1)
dr1 = cmd1.ExecuteReader()
If dr1.Read() Then
consult_fee = dr1.Item(0)
End If
consult_count = DataGridView1.Rows.Count()
DataGridView1.Rows.Add()
DataGridView1.Rows(consult_count - 1).Cells(0).Value = billcombobox.SelectedItem
DataGridView1.Rows(consult_count - 1).Cells(1).Value = consult_fee
Else
cmd2 = New OleDbCommand("select fees from fee_details where type='" + billcombobox.SelectedItem + "'", con1)
dr2 = cmd2.ExecuteReader()
If dr2.Read() Then
bill_fee = dr2.Item(0)
End If
bill_count = DataGridView1.Rows.Count()
DataGridView1.Rows.Add()
DataGridView1.Rows(bill_count - 1).Cells(0).Value = billcombobox.SelectedItem
DataGridView1.Rows(bill_count - 1).Cells(1).Value = bill_fee
End If
|
|
|
|
|
Not a big problem. Right now you are storing the data in the DataGrid. All you need to do is store it in a DataTable first (the code will look pretty much the same), and bind the datagrid to this DataTable.
Something like:
Dim BillInfo As DataTable = Nothing
Dim clmn As DataColumn = Nothing
Dim rw As DataRow = Nothing
Try
BillInfo = New DataTable("DataTable1")
clmn = New DataColumn("PatientName")
BillInfo.Columns.Add(clmn)
clmn = New DataColumn("Address")
BillInfo.Columns.Add(clmn)
clmn = New DataColumn("Total")
BillInfo.Columns.Add(clmn)
'etc
rw = BillInfo.NewRow
rw.Item("PatientName") = YourDataReader.Item("NameOfColumn")
'Using the name of the column instead of the index number will
'save you a lot of trouble later on, if you ever want to
'add fields to your query.
BillInfo.Rows.Add(rw)
'etc
'And then when the DataTable is ready:
DataGridView1.DataSource = BillInfo
Catch ex As Exception
MsgBox(ex.ToString)
End Try
Also, in the code you posted, you are not using a loop with the datareader.
Try something like:
dr1 = cmd1.ExecuteReader()
If dr1.HasRows Then
Do while dr1.read()
rw.Item("PatientName") = dr1.Item("NameOfColumn")
Next
End If
My advice is free, and you may get what you paid for.
|
|
|
|
|
thanks johan...its getting dark here..i should go home now  ..once i reach home i will try this out
|
|
|
|
|
You can use dataset to store data from Windows Form and then Fatch the data in crystal Report.
If you can think then I Can.
|
|
|
|
|
Hi All,
I am creating control at runtime. so these are overlapping and hiding.
So i want to use Send to Back or Bring to Front for it.
So Please give me idea for implimenting it.
Thanks
If you can think then I Can.
|
|
|
|
|
You'll probably want the BringToFront and SendToBack methods
Between the idea
And the reality
Between the motion
And the act
Falls the Shadow
|
|
|
|
|
Is there something like zindex?
google for that.
Coding C#
www.excitetemplate.com
|
|
|
|
|
Thanks Sir
If you can think then I Can.
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
