|
Using Win 7 / Winforms / VS 2013 / VB.net
My application stores the last several visited directories in the File menu. But when I click an item in the drop-down to set the .InitialDirectory property the OpenFileDialog just goes back to the last directory viewed. I don't need to store a specific file name, I just need the dialog to open in the desired directory. I've checked the text of the menu items and it's all correct. I also tried hard-coding a directory name and it still goes back to the first directory opened during the session. Code is below:
ofd.InitialDirectory = e.ClickedItem.Text
cntxMenu.Close()
res = ofd.ShowDialog
If res = Windows.Forms.DialogResult.OK Then
PopulateListview(ofd.FileName)
End If
Don't know if this is related: This is a ContextMenuStrip that opens when a button is clicked. There are two items with dropdowns. One is a zoom menu that works fine. But with the recent directories menu, I have to close it with cntxMenu.Close(). Otherwise it remains visible on top of the OpenFileDialog.
What am I doing wrong here?
Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.
|
|
|
|
|
I have just tried a test (Windows 10) and it works correctly. I can only suggest you try using your debugger to see what actually happens as the code runs.
|
|
|
|
|
I was pretty much reduced to throwing code at the wall to see what would stick. Setting the dialog's AutoUpgradeEnabled property to True caused it to behave normally. I'll freely admit to having no idea why. But as it's an application strictly for my own use I'm not going to worry over it at this point. 
Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.
|
|
|
|
|
I can remember that the path for the InitialDirectory must be written in a special way.
Assuming that the path you give to the Property of the Dialog is existing and correct written but you should look, if the string ends with a "\" or not. Perhaps you should change this.
|
|
|
|
|
Added a backslash to the strings but that didn't do it either. Perhaps there is a bug that causes the OpenFileDialog to not recognize the string if AutoUpgradeEnabled is false. Seems highly unlikely though. I may create a temporary project and see if I can duplicate the problem there. If not then I'll at least know the problem is unique to one project. I have another app that maintains a list of recent files (not directories) and it's been working fine for years.
Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.
|
|
|
|
|
I struggled with the same problem. When I set the AutoUpgradeEnabled to True, it started working better. But I added the below code and it seems to always works now.
Public Class frmSample
Dim openFileDialog1 As New OpenFileDialog()
Dim sTemp As String
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click
openFileDialog1.AutoUpgradeEnabled = True
sTemp = "None"
sTemp = OpenDir()
Do Until sTemp <> "None"
Loop
openFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
openFileDialog1.FilterIndex = 0
openFileDialog1.RestoreDirectory = True
If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
End If
End Sub
Private Function OpenDir() As String
openFileDialog1.InitialDirectory = "C:\Sample Initial Directory"
Return "OpenDir"
End Function
End Class
|
|
|
|
|
Thanks. I ended up doing something similar but that was a couple of years back. I don't remember exactly how I did it. I should have posted the solve here but apparently I didn't think about it. Thanks again.
Sometimes the true reward for completing a task is not the money, but instead the satisfaction of a job well done. But it's usually the money.
|
|
|
|
|
Just to clarify i'm not using crystal reports, just the ordinary reports in Visual Studio,
I know how to link text boxes to a report but how much I link a listview with multiple rows to a report? I know I need to add the listview contents to a dataset but I cannot find any examples online and i'm really struggling, can anyone help please?
Also, can anyone explain the different between Visual Studio Report and Crystal Report? Are their any benefits to using Crystal Reports over the bog standard one?
Many Thanks
|
|
|
|
|
RedRocket2016 wrote: I know how to link text boxes to a report but how much I link a listview with multiple rows to a report?
Usually one puts data from a dataset in the listview, as well as in the report, as opposed to linking a listview directly to a report.
If you can do so for textboxes, then you should be able to do it with a listview. Just fetch the values from the listview and pass them like you would for a textbox.
RedRocket2016 wrote: but I cannot find any examples online
If you look for this specific scenario, then no, there will not be an example. There are general examples though.
RedRocket2016 wrote: Are their any benefits to using Crystal Reports over the bog standard one?
I have not found one yet, but appears to be popular.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
Hi guys, Im just a newbie in vb.net. Just want to ask for help.. Here's my problem. i have a parent form which i call frmKitchen. Inside it, i have a listview and an user control. I want to reload all the items in the listview when something change in my user control. is there any possible way?
here's my sample code
Main form:
Public Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
selectDistOfItem()
getAndDisplaySum()
Me.Refresh()
End Sub
User control:
Private Sub lvOrders_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lvOrders.DoubleClick
If lvOrders.SelectedItems.Count > 0 Then
Dim kit As New frmKitchen
kit.btnRefresh_Click(Nothing, Nothing)
End If
End Sub
I cant reload the data from database to listview when an event done in my user control. please help.. thanks in advance..
|
|
|
|
|
Create an event in your UserControl to signal that any subscriber that the selection in your control changed. The parent form should subscribe to this event so it can get notified when to reload the ListView control with new data.
Google for "VB.NET create an event[^]".
|
|
|
|
|
Hello everyone, I just want to ask for guide to where I'm doing wrong to my codes. My codes is basically to produce reports dynamically after results from database. I'm using vbnet 2015.
Sub Fill()
cryRpt.Load("C:\Users\MicroboxMac\Documents\Visual Studio 2015\Projects\ReportsDemo\ReportsDemo\bin\Debug\cr1.rpt")
cryRpt.SetDataSource(reportsQuery(TextBox1.Text.Trim))
CrystalReportViewer1.ReportSource = cryRpt
CrystalReportViewer1.Refresh()
End Sub
This the table I'm getting the data results
Public Function reportsQuery(ByVal bId As Integer)
Dim db = New database
Dim dt As New DataTable
MessageBox.Show(bId)
With db
.sqlStr = "SELECT * from brandnames Where brandid = '" & bId & "' " 'query string
.sqlDa.SelectCommand = .sqlcm(.sqlStr, .connect) 'execute command
.sqlDa.Fill(.sqlDt) 'get results and store in sqldt
.close()
End With
Return db.sqlDt
End Function
unfortunately I'm stuck with this error...
An unhandled exception of type 'System.IO.FileNotFoundException' occurred in mscorlib.dll
Additional information: Could not load file or assembly 'file:///C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet1\crdb_adoplus.dll' or one of its dependencies. The system cannot find the file specified.
I appreciate the time for helping out.
I got it working now...find the solution from other thread by Joezer BH
Best regards,
Joe
modified 18-Dec-16 22:15pm.
|
|
|
|
|
Hi,
I'm Using Visual Studio 2010 (.net) & Crystal Report 8.5 as Crystal Report Builder. I have a trouble that i can't view two different report in one view and different page.
can u help me ?
Thx
Hermawan
|
|
|
|
|
Can you just generate two reports, then add them as two views in a view group? Or paginate that using a control that supports such.
What framework are you using, ASP.NET, or what?
The sh*t I complain about
It's like there ain't a cloud in the sky and it's raining out - Eminem
~! Firewall !~
|
|
|
|
|
i'm using Vb.net
can you show me the code to views in a view group ? 
modified 16-Dec-16 22:47pm.
|
|
|
|
|
Ever since .net came around we have not been able to create an exe, or assembly that did not need the .net framework. Now with containers and smaller computing spaces available in .net it would be nice to have an optimized exe or service compiled to native code. Can this be done with Visual Studio or does ability belong to another compiler and no longer in Microsoft's abilities?
I would like this to be done with the Microsoft, but if not I will need to search for another professional Basic that can do the job.
|
|
|
|
|
|
Almost. Seems this only works with Universal Windows Apps. No services, command prompt apps, OS event handlers etc. Microsoft is so close, but their insistence on WMA is a road block.
|
|
|
|
|
There is no other product that does this.
There used to be another product quite a while ago, I think it was called something like "Salamander", but it cost about $2,000 and only worked with .NET 2.0 and below.
As for another BASIC product, good luck with that. You're not going to find one that's any good.
|
|
|
|
|
rkinning wrote: if not I will need to search for another professional Basic that can do the job
Good luck with that 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
This one[^] might fit the bill. 
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
I can pop a 128GB file-based micro-card into my mp3 player.
What's the problem?
|
|
|
|
|
This is that FoxPro project that I'm working on, and creating a sub report for a report; while using the event handler for SubReportProcessing.
So I have this dataset that I pass to the RDLC file which is a list of invoices for the month. Each invoice has items that I'm using a sub report for. So I made an event handler for it. I have the data already, and perhaps it would be easier to just write another function to load the data in the event handler instead.
But I just can't get this last part in my event handler, it's so foreign to me.
This is the dataset below that has my invoice items, that I add to LocalReport and is passed to the RDLC. so I have a dataset that is ready to go in "ds_invoice_items"
Dim ds_items As New DataSet()
ds_items.DataSetName = "ds_invoice_items"
ds_items.Tables.Clear()
ds_items.Tables.Add(table_Items)
ds_items.Tables(0).TableName = "tablix_invoice_items"
'Write the datasource to the report canvas
rv_Canvas.LocalReport.DataSources.Clear()
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_salesRep", ds_salesRep.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_salesRep_invoices", ds_invoices.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_bAddress", ds_bAddress.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_sAddress", ds_sAddress.Tables(0)))
rv_Canvas.LocalReport.DataSources.Add(New ReportDataSource("ds_invoice_items", ds_items.Tables(0)))
rv_Canvas.LocalReport.DisplayName = p_salesRepName & " Invoices"
AddHandler rv_Canvas.LocalReport.SubreportProcessing, AddressOf Me.SetSubDataSource
This is my event handler. The first and 2nd line works. It's the 3rrd line.
My Question is:
I know List(Of model_invoice_items) is wrong. I can't figure out what to replace it with.
Do I get the type, or hard code the type, I don't even know what the type is.
Private Sub SetSubDataSource(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
<pre>
Dim mainSource = CType(sender, LocalReport).DataSources("ds_invoice_items")
Dim FINVNO = Integer.Parse(e.Parameters("FINVNO").Values.First)
Dim subSource = CType(mainSource.Value, List(Of model_invoice_items)).Single(Function(m) m.FINVNO = FINVNO)
e.DataSources.Add(New ReportDataSource("ds_invoice_items", subSource))
End Sub
21st Century Globalism has become Socialism on a planetary scale, in which the unequal treaties of the past have come back into play.
|
|
|
|
|
jkirkerx wrote: New ReportDataSource("ds_invoice_items", ds_items.Tables(0))
You're creating the ReportDataSource by passing in a DataTable. Therefore, I would expect the mainSource.Value property to return a DataTable.
Private Sub SetSubDataSource(ByVal sender As Object, ByVal e As SubreportProcessingEventArgs)
Dim FINVNO As Integer = Integer.Parse(e.Parameters("FINVNO").Values.First)
Dim mainSource As ReportDataSource = DirectCast(sender, LocalReport).DataSources("ds_invoice_items")
Dim mainTable As DataTable = DirectCast(mainSource.Value, DataTable)
Dim subSource As New DataView(mainTable)
subSource.RowFilter = String.Format("FINVNO = {0:D}", FINVNO)
e.DataSources.Add(New ReportDataSource("ds_invoice_items", subSource))
End Sub
If that doesn't work, then you'll need to debug your code; Visual Studio should be able to show you the correct type of the mainSource.Value property.
"These people looked deep within my soul and assigned me a number based on the order in which I joined."
- Homer
|
|
|
|
|
It runs without error and produces results, I just need to validate the results
Question:
subSource.RowFilter = String.Format("FINVNO = {0 }", FINVNO)
The
{0:d}, the value is just a string of numbers, should I change that?
I Actually started thinking a dataview, but ended up with a rats nest, not clean like yours.
Dim FINVNO = Integer.Parse(e.Parameters("FINVNO").Values.First)
Dim ds_invoiceItems As ReportDataSource = CType(sender, LocalReport).DataSources("ds_invoice_items")
Dim dt_invoiceItems As DataTable = ds_invoiceItems.Value
Dim dv_invoiceItems As New DataView(dt_invoiceItems)
Dim view_items = dv_invoiceItems.ToTable().Rows.Cast(Of DataRow)()
Dim table_items As DataTable = view_items.Where(Function(row) row.Field(Of String)("FINVNO") = FINVNO).CopyToDataTable()
Dim ds_items As New DataSet()
ds_items.DataSetName = "ds_invoice_items"
ds_items.Tables.Clear()
ds_items.Tables.Add(table_Items)
ds_items.Tables(0).TableName = "tablix_invoice_items"
e.DataSources.Add(New ReportDataSource("ds_invoice_items", ds_items.Tables(0)))
21st Century Globalism has become Socialism on a planetary scale, in which the unequal treaties of the past have come back into play.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
