|
I am trying to insert multiple records on crystal report 10 using the following codes. I have multiple columns, too. But the following code displays only the first record in the dataset. when i put the last two lines before the word "next" it displays only the last record. Can any one fix it or give me some suggestions?
I thank any efforts made to solve this problem
NB: param3 is the parameter field that is found on crystal report
For c.rowIndex = 0 To c.ds.Tables("studreport").Rows.Count - 1
discvalue = New ParameterDiscreteValue
discvalue.Value = c.custView(c.rowIndex)("coursename")
param3.CurrentValues.Add(discvalue)
paramfields.Add(param3)
Next
|
|
|
|
|
Normally you set your crystal report up and throw a query/stored procedure/dataset at it and it does the rest... why are you using this code?
|
|
|
|
|
i used this code because the final data to be displayed on crystal report depends on user data input. everytime user input changes the report data changes.
|
|
|
|
|
Parameters generally used as a selection or displaying some information ie user name, department. They are not meant for passing in the report data itself.
The Crystal Report should take the data from data sources like dataset, object collections, or directly from the database itself, not by passing in as parameters one by one.
|
|
|
|
|
Hello EveryBody
I have used an comboBox in my application and on Edit Cmd i have DropDown list of items for user to select.But now the problem is that When i Click Exit Cmd,the form does not get closed on Single click ,I have to Click CmdExit 2 times to close form.But i wanna close the form on a single click .Kindly help me for the same
Thanks in advance
Rizwan
|
|
|
|
|
can we see the code ?
Vuyiswa Maseko,
Few companies that installed computers to reduce the employment of clerks have realized their expectations.... They now need more and more expensive clerks even though they call them "Developers" or "Programmers."
C#/VB.NET/ASP.NET/SQL7/2000/2005/2008
http://www.vuyiswamaseko.somee.com
vuyiswa@its.co.za
http://www.itsabacus.co.za/itsabacus/
|
|
|
|
|
Hi Maseko
Thanks for Ur reply >The code Snippets is as follows
This is Included in Module ........
DROP-DOWN THE COMBO BOX NAMED CmbSlNo.....
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const CB_SHOWDROPDOWN = &H14F
This code is on Edit Button to Drop-down the List contains Auto.......
Call SendMessage(CmbSlNo.hWnd, CB_SHOWDROPDOWN, True, ByVal 0) 'API FUNCTION IS CALLING FOR DROPDOWN THE COMBO BOX NAMED cmbsLNO
Now when i click on Edit button the list is drop-down and the cursor is in the combo first list index .
But if i click Exit at this instants it Set the combo listindex to 0 on First click
Then on next click it Exits the form.
But i wanna do the same on single click.Plz help if can....
or any other suggestion?
Rizwan
|
|
|
|
|
Sounds like your code might be doing something that causes it to eat the first click, for instance, your custom code might be opening the combo, so as you click off it it's then closing the dropped down combo - perhaps you could post your code for us to look at?
The other option is that you have it set to double click instead of single click.
|
|
|
|
|
|
Hi Damian s
Thanks for Ur reply >The code Snippets is as follows
This is Included in Module ........
<br />
DROP-DOWN THE COMBO BOX NAMED CmbSlNo.....<br />
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _<br />
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br />
<br />
Public Const CB_SHOWDROPDOWN = &H14F
This code is on Edit Button to Drop-down the List contains Auto.......
<br />
Call SendMessage(CmbSlNo.hWnd, CB_SHOWDROPDOWN, True, ByVal 0) 'API FUNCTION IS CALLING FOR DROPDOWN THE COMBO BOX NAMED cmbsLNO
Now when i click on Edit button the list is drop-down and the cursor is in the combo first list index .
But if i click Exit at this instants it Set the combo listindex to 0 on First click
Then on next click it Exits the form.
But i wanna do the same on single click.Plz help if can....
or any other suggestion? Plz Help its urgent??????
Rizwan
modified on Thursday, August 20, 2009 4:31 AM
|
|
|
|
|
|
Set Locked property of the form to false.
It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD
|
|
|
|
|
Don't delete or empty your message.
Read the forum guidelines![^]
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.
|
|
|
|
|
Hi all,
I want to know, how to check Component(ocx) is already registered or not.
I tried in Google but i didn't get any correct result.
Eg: Using Shell in VB6, executing regsvr32 "COMPONENTNAME.ocx".
I have written this code in the load event of the form. It will execute every time when i launch this form.
I want to check, if the Componet.ocx is already registred then leave it. otherwise registered it.
Thanks & Regards
Kumaran
|
|
|
|
|
here's what you've looking for:
click me!
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
hello,
need help again. why is that in my datagridview after load. it will add a new column instead it should insert combobox in datagridview.
heres what i did.
Me.gridMeasure.Columns.Insert(2, New DataGridViewComboBoxColumn())
in my datagridview
i add it programmatically, im not using the wizard.
Me.gridMeasure.DataSource = ds
Me.gridMeasure.DataMember = "tmpTable"
Me.gridMeasure.Columns(0).Width = 60
Me.gridMeasure.Columns(1).Width = 55
so i want to add a combobox in column 2 thats why i use this
Me.gridMeasure.Columns.Insert(2, New DataGridViewComboBoxColumn())
could someone give me an example on how to add combobox inside datagridview programmatically. note the combobox has different datasource.
thanks,
C# コードMicrosoft End User
2000-2008
「「「「「「「「「「「「「「「「「「「「「「「「「「「「
The best things in life are free
」」」」」」」」」」」」」」」」」」」」」」」」」」」」
|
|
|
|
|
Hi
This is the code I have used in one of my application. Hope this will help. 
''ProductName column
Dim ProductName As New DataGridViewComboBoxColumn
With ProductName
.DataPropertyName = "ProductName"
.HeaderText = "Product Name"
.Width = 200
.DataSource = DtProductMaster
.ValueMember = "prod_name"
.DisplayMember = "prod_name"
.DisplayStyle = DataGridViewComboBoxDisplayStyle.ComboBox
.ToolTipText = "Select Product Name."
End With
dgv.Columns.Add(ProductName)
Instead of dgv.Columns.Add(ProductName) you can use Insert
If it works please let me know..
Be an Eagle, Sky is Yours.
|
|
|
|
|
Do you need a Combobox column or just one combobox?
It's not necessary to be so stupid, either, but people manage it. - Christian Graus, 2009 AD
|
|
|
|
|
i was assigned an to do completely migration from vb6 to vb.net. can somebody guide me?please, any little help would be benefitial for me.
' this code is for deleting the selected file that is manually type in textbox
<br />
Dim backupFile As String<br />
<br />
On Error Resume Next<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
Call DeleteTableRecord(backupFile, sqlDeleteTestTxn, sqlSelectTestTxn, Adodc_TestTxn, "FWCATNS_TESTTXN")<br />
btnExportData_TestTxn.Enabled = False<br />
btnBackupDataTestTxn.Enabled = False<br />
btnDeleteTesttxn.Enabled = False<br />
Me.SetFocus<br />
'this is for perform backup on file
<br />
Private Sub btnBackupDataTestTxn_Click() 'ok<br />
Dim r As Integer<br />
Dim backupFile As String<br />
Dim backupFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
backupFile = "C:\" & txtMotherLot.Text & "\TestTxn.txt"<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
backupFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(backupFolder) Then<br />
<br />
If fso.FileExists(backupFile) Then<br />
r = MsgBox("TestTxn.txt backup file exists!Continue to replace it?", vbOK, "TestTxn.txt File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.txt)?", vbOK, "TestTxn.txt File Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name ", "Save as new file name")<br />
backupFile = "C:\" & txtMotherLot.Text & "\" & FileName & ".txt"<br />
If fso.FileExists(backupFile) Then<br />
MsgBox "FileName " & backupFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
<br />
Else<br />
fso.CreateFolder (backupFolder)<br />
Call writeBackup(backupFile, sqlSelectTestTxn, "FWCATNS_TESTTXN")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
'this for exporting data from one location to the specific location
<br />
Private Sub btnExportData_TestTxn_Click() 'ok<br />
<br />
Dim r As Integer<br />
Dim exportFile As String<br />
Dim exportFolder As String<br />
<br />
Dim s As Integer<br />
Dim FileName As String<br />
Dim continue As Boolean<br />
continue = True<br />
On Error GoTo ErrMesej<br />
exportFile = "C:\" & txtMotherLot.Text & "\TestTxn.xls"<br />
<br />
<br />
If ValidateID(txtMotherLot.Text) Then<br />
exportFolder = "C:\" & txtMotherLot.Text & "\"<br />
If fso.FolderExists(exportFolder) Then<br />
If fso.FileExists(exportFile) Then<br />
r = MsgBox("TestTxn.xls file exists!Continue to replace it?", vbOK, "TestTxn.xls File Checking")<br />
Select Case r<br />
Case vbOK<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
Case vbCancel<br />
'Exit Sub<br />
s = MsgBox("Do you want to save file with another name other than default name(TestTxn.xls)?", vbOK, "TestTxn.xls Checking")<br />
Select Case s<br />
Case vbOK<br />
While continue<br />
FileName = InputBox("Please key in new file name other than existing file name", "Save as new file name")<br />
exportFile = "C:\" & txtMotherLot.Text & "\" & FileName<br />
If fso.FileExists(exportFile) Then<br />
MsgBox "FileName " & exportFile & " already exists!!", vbExclamation<br />
Else<br />
continue = False<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Wend<br />
Case vbCancel<br />
Exit Sub<br />
End Select<br />
End Select<br />
Else<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
fso.CreateFolder (exportFolder)<br />
Call exportRecords(exportFile, sqlSelectTestTxn, "Fwcatns_TestTxn")<br />
End If<br />
Else<br />
MsgBox "Please key in correct MES ID!"<br />
txtMotherLot.SetFocus<br />
txtMotherLot.Text = "<Invalid ID>"<br />
End If<br />
Me.SetFocus<br />
Exit Sub<br />
ErrMesej:<br />
MsgBox Err.Description, vbCritical, "System Message"<br />
<br />
End Sub<br />
pliz, i'm new to vb6.
|
|
|
|
|
VB6 is rubbish. There's no direct conversion path, your best bet is to rewrite, and refer to the VB6 code only for ideas on the overall logic required.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
And your problem is!
Or were you hoping someone would write the code for you. We are here to help you learn, not do your job for you.
|
|
|
|
|
Is there a good tutorial VB online? What's the link? I need a good VB tutorial online because I am on the budget(tight) prevent me from purchase a textbook.
|
|
|
|
|
I doubt any online tutorial will be as good as book. If you're just learning for fun tho, if you don't want to write code that is good enough to sell, then I'm sure there's plenty of tutorials out there. This site is full of articles, although I would assume that most assume you know something to start with, you could try downloading some simple ones and reading through them.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
|
It looks like the book is the best way to go. I want to learn VB and programming in VB. If you learn one language, does that means you know other language easy?
|
|
|
|
|
Yes, once you know the concepts of programming, it makes other languages easier. Knowing VB would mean you basically are 9/10 of the way to knowing C#. Languages like C++ are more work again, but you'd still have a start.
Christian Graus
Driven to the arms of OSX by Vista.
Read my blog to find out how I've worked around bugs in Microsoft tools and frameworks.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
