|
If you are getting node returned from FoundNode you may have an EnsureVisible (it's on some winform controls).
If this is not available then you should be able to work with the foundnodes parent node, walking up the tree till you get to the root node, expanding at each step.
If you can't expand from the bottom then put each node into an array of node and when you reach the root node you have a list of nodes to expand from the top.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Hi!
thanks for reply. I think the node becomes only available when I drilldown (by the look of my code). i.e it has treenodes populateondemand. could you possibly point out what i am doing wrong to acheive my goal. am i populating the treeview incorrectly? please help
brief code as below
sub page_load
if not ispostback then
PopulatePropertyLocation()
end if
If Not Session("selected") Is Nothing then
debug.writeline(Session("selected")) -->prints 118/115
propertytn = Me.tvProperty.FindNode(Session("selected")) --->nothing
propertytn.selected = true
end sub
----------------------------
Private Sub PopulatePropertyLocation()
Dim myDal As New clsDAL
Dim dt As DataTable
Try
dt = myDal.getPropertyLocation(userId, tLocId)
PopulatePropertyLocationNodes(dt, tvProperty.Nodes)
Catch ee As Exception
Throw ee
myDal.UpdateErrorLog(ee.Message, ee.TargetSite.Name.ToString())
End Try
End Sub
Private Sub PopulatePropertyLocationNodes(ByVal dt As DataTable, ByVal nodes As TreeNodeCollection)
For Each dr As DataRow In dt.Rows
Dim tn As New TreeNode()
tn.Text = dr("LName").ToString()
tn.Value = dr("LId").ToString()
nodes.Add(tn)
'If node has child nodes, then enable on-demand populating
tn.PopulateOnDemand = (CInt(dr("LocationCount")) > 0)
Next
End Sub
many thanks in forward.
|
|
|
|
|
|
I used the dataTable.Select method to get a single row from a dataTable. Now I need to get the value from the stud_id column in the dataRow. I tried to do the following and I get the blue Line under
foundRow("stud_id").
intStudID = foundRows("stud_id") ' this line of code did not work, why?
How do I get the value of the stud_id column in the dataRow.
Here is my code.
' global variable declaration<br />
' create dataRows<br />
Dim foundRows() As Data.DataRow<br />
<br />
' a part fo the code in sub procedure<br />
Call GetRowsByFilter("tbl_lessons", "less_time = " & startTime & "AND less_day = " & arrDayNum(intArrCount))<br />
<br />
<br />
Private Sub GetRowsByFilter(ByVal tableName As String, ByVal exp As String)<br />
Dim dt As DataTable = lpDataSet.Tables(tableName)<br />
<br />
' Use the Select method to find all rows matching the filter.<br />
foundRows = dt.Select(exp)<br />
<br />
End Sub
|
|
|
|
|
AAGTHosting wrote: foundRows("stud_id")
This is an array of rows and you are defining the row number as "Stud_id", try
foundRows(0)("stud_id")
This will get you the first row (0) and the column ()("stud_id")
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
I am having an issue that seems to be specific to a single input source. I select a group of rows from a table and based on some matching determine that they are duplicates for my purpose. I fill an arraylist with the actual datarows and then after I am finished with all of the logic of determining the duplicates, I remove them like this.
For Each duplicateRowToRemove As DataRow In rowsToRemove<br />
duplicateTable.Rows.Remove(duplicateRowToRemove)<br />
End If<br />
Next
I receive the RowNotInTableException or some version of an IndexOutOfRange exception everytime. I have tried adding a primary key by just incrementing a counter and inserting it in the "ID" column, I have tried to check whether a row exists in the arraylist before adding it, I have tried to check to see if the row exists before removing it and nothing works. What am I missing here? This code has been in place for 4 months with no issues until today's input source (file) came in.
FYI - I can still run previous files but this one keeps causing the process to exception out.
CleaKO
"Now, a man would have opened both gates, driven through and not bothered to close either gate." - Marc Clifton (The Lounge)
|
|
|
|
|
You should not attempt to remove items from a collection when performing a For Each through the same collection. Use a For loop to traverse the collection in reverse order, removing the items as you go.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
|
Have you tried usong the almighty Google[^]? 536,000 results to do what you are asking, in 5 seconds 
I'm going to become rich when I create a device that allows me to punch people in the face over the internet.
"If an Indian asked a programming question in the forest, would it still be urgent?" - John Simmons / outlaw programmer
|
|
|
|
|
I tried using Google but i didn't get the required solution for my problem.
If u know the solution u answer it instead of criticizing
|
|
|
|
|
Jeminwins wrote: I tried using Google but i didn't get the required solution for my problem.
Ok. You will rarely find the "required solution" for your "problem." That is part of being a developer. You need to be able to do the necessary research for your project, and then apply what you learned to your project and tailor it to meet your needs.
Jeminwins wrote: If u know the solution u answer it instead of criticizing
Don't tell me what to do. I'm not going to answer a damn thing for you. I wasn't criticizing you. I simply told you to look on google, because there were thousands of articles that you could have read, learned from, and applied to your project. Instead of doing that, you came to code project and listed your requirement and expected someone to do your work for you. There wasn't even a question in your original post to answer. This isn't rent-a-coder. Do the damn research yourself, and when you get stuck at a specific spot, you can ask a specific question.
What have you tried to do to solve that solution, huh? Maybe barely search google for your exact solution, with full source code? Go to every forum you could think of and list your requirement, with no questions, and expect someone to waste their time doing your work? We help for free, when we feel like it. Why would someone help you, when you probably haven't tried to solve the problem yourself. Lazy ass Indian. That is why Indians get such a bad rep. People like you. You act like everyone owes you something. You believe we should do your work, research, and write code for you. You lazy ass. I can't believe people like yourself call yourself a developer.
I'm going to become rich when I create a device that allows me to punch people in the face over the internet.
"If an Indian asked a programming question in the forest, would it still be urgent?" - John Simmons / outlaw programmer
|
|
|
|
|
Justin
I do love a good dummy spit  . Onya lad
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
In vb.net 2005 we can not use oracle database 8.0.5 at desing time.For this we need to use the connection string at run time to execute queries.
I have a customers form and using treeview to display the customers and by selecting the customer from the treeview I need to show the detail of the selected customer in the controls like (TextBox,ComboBox).I can get the detail by running the following query but don't know how to bind the controls after getting the result.
Using the following query to get the result of the selected customer.
"Select * from customers where custcode = '" & mcustcode & "'
Any idea or any sample code which can help.
Thanks In advance
Ejaz
|
|
|
|
|
Explaining the basics of data access in .NET is beyond the scope of a forum post. I suggest you buy a beginner's book on VB.NET and ADO.NET.
A quick Google search[^] also threw up some articles you may like to read.
Paul Marfleet
"No, his mind is not for rent
To any God or government"
Tom Sawyer - Rush
|
|
|
|
|
Try something like this :-
myTextBox.DataBinding.Add("Text", myDataSet.Table(0), "FieldToBind")
Steve Jowett
-------------------------
It is offen dangerous to try and see someone else's point of view, without proper training. Douglas Adams (Mostly Harmless)
|
|
|
|
|
Hi all,
I have a bit of an issue with some code I am designing.
I am trying to implement a "file open" dialog for images. There are reasons for not wanting to use the standard dialogs. Also, I want the control to remain responsive whilst displaying a the list, so a user can select "up", or another folder whilst the list of preview images is loading.
To do this, I have a panel object, and my own "simpleimage" which is a simple control which has an image and a caption. I draw the a small preview thumbnail image to the simple control then add this to the panel.
To keep the app responsive, the creating of these simple images is done in a background worker, and a delegate adds them to the panel.
Delegate Sub AddIconDelegate(ByVal s As SimpleImage)<br />
<br />
Private Sub AddIcon(ByVal s As SimpleImage)<br />
SyncLock Me.ImagePanel<br />
Me.ImagePanel.Controls.Add(s)<br />
End SyncLock<br />
End Sub
and, in the background worker:
Loop through relevant images<br />
Dim Blob As New SimpleImage(MyCL, ImageTypeEnum.Image, FileName, Cap)<br />
AddHandler Blob.ImageSelected, AddressOf ImageSelectedHandler<br />
Blob.Location = New Point(xp, yp)<br />
Me.ImagePanel.Invoke(ASI, Blob)<br />
End Loop.
And the scrollbar:
Private Sub _ValueChanging(ByVal Sender As vScroller) Handles VS1.ValueChanging<br />
SyncLock Me.ImagePanel<br />
Me.ImagePanel.Top = -VS1.Value<br />
End SyncLock<br />
End Sub
This code generally works fine. I have successfully added over 4000 images.
I can mess around with the scrollbar which controls the panels position (move it up and down) and generally things are fine, BUT if I go crazy and move the scroll bar really crazily, the invoked procedure (AddIcon), more specifically the "Me.ImagePanel.Controls.Add(s)" line, will cause a StackOverflowException. This can happen with only 300 icons.
So, Question time.
Does anyone know why this is happening?
Any way of catching the stackoverflow exception?
I have tried slowing the backgroundworker down with a thread.sleep, and this reduces the chance if it happening, but does not eliminate it. The synclock also reduces the chance of this happening.
Thanks in advance.
Jason
|
|
|
|
|
Hi
Is there more code? maybe some eventhandlers on the imagepanel?
and ther's one more thing:
your syncLock is useless 
basically you're of coure right that you must lock resources when you modify them from different threads. but since you call your AddIconDelegate correctly via Invoke of ImagePanel it's executed through the main-thread of your application. so no syncLock required here.
but anyway that's not the problem here...
you should take a look at the CallStack in your debugger when the exceptions comes up.. maybe that gives you an idea what's called from where over and over...
greets
m@u
|
|
|
|
|
Hi,
Thanks for the reply.
The Synclock was an attempt at curing the problem, and it does seem to reduce the problem... but then again, maybe it doesnt  . I will remove these lines!
There isn't really much more code. The imagepanel has no eventhandlers defined by me, and its only function is that of a container to hold all the other controls. I only access its "Top" value, setting it depending upon a scrollbar position.
The background worker does "report progress" which increments a progress bar on the main thread, but that is about all I'm afraid for the code in the form.
The exact exception reported is rather useless (well, to me and Uncle Google):
System.StackOverflowException was unhandled<br />
An Unhandles Exception of type 'System.StackOverflowException' occurred in mscorelib.dll<br />
Make sure you do not have an infinite loop or infinite recursion.
I certainly dont have an infinite loop, and I cant find out where in mscorelib.dll this is occuring.
Thanks again.
|
|
|
|
|
yes that's right the message of the Exception is not really interesting.. but the StackTrace might speak books
|
|
|
|
|
Hi yet again.
I think I have found the problem, and the fix.
I was being polite to the system, and doing an application.doevents whilst in the backgroundworker's reportprogress event, after updating the progressbar. I have removed this "polite" code, and now it is still responsive, but will not crash.
This must have been a left-over from the single threaded version of the control.
Thanks for your time.
Jason
|
|
|
|
|
Hi
Using VS2005 VB
I am having Problems when importing data from an Excel sheet using oledb
The sheets being opened as always use the following naming convention
P_W03-29M40MH-S16A-1235296-XFA-
The problem seems to be the dash at the end.
If I rename the sheet and replace the dash with an underscore, it works fine
I dont want to have to open the book first an rename the sheets every time.
The code below throws an error when cmd.Execute reader executes.
The error states:
System.Data.OleDb.OleDbException = {"The Microsoft Jet database engine could not find the object 'P_W03-29M40MH-S16A-1235296-XFA-$.A:A'.
Make sure the object exists and that you spell its name and the path name correctly."}
This is the code I am using:
<br />
<br />
Dim strConn As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source=C:\myFile.xls;" & _<br />
"Extended Properties=""Excel 8.0;HDR=NO"""<br />
<br />
Dim conn As New System.Data.OleDb.OleDbConnection(strConn)<br />
conn.Open()<br />
<br />
Dim strSheet As String = "P_W03-29M40MH-S16A-1235296-XFA-"<br />
Dim cmd As New System.Data.OleDb.OleDbCommand("Select * from [" & strSheet & "$A:A]", conn)<br />
Dim rdr As OleDbDataReader = cmd.ExecuteReader
|
|
|
|
|
Just off the top of my head: have you tried concatenating a ! in between the sheet name and the range?
"Select * from [" & strSheet & "!$A:A]"
or you could try one of the following alternative syntaxes:
"Select * from ['" & strSheet & "$A:A]"'"
"Select * from ['" & strSheet & "'$A:A]"
"Select * from ['" & strSheet & "'!$A:A]"'"
My advice is free, and you may get what you paid for.
|
|
|
|
|
Thanks, tried them but no luck.
The '$' sign is eqivalent to the '!' usually used to indicate a sheet in an Excel Formula.
I tried the same query in MS Query from Excel, and it gave the similar syntax and it works with the '-' at the end.
The only difference was it the Filed name was as follows
SELECT * FROM mysheetName$.F1
Do you know how to use an escape character for '-'. Mabee I can get the sheet name, strip off the dash, and insert a dash with an escape character sequence?
|
|
|
|
|
The problem with Excel programming (in my experience) is that any code is rather sensitive to (MS Excel) version differences.
I don't know if there is any kind of special escape character you could use, but one thing you can try is the "add quotes till it works" method. Something like this:
"SELECT * FROM ['" & mysheetName- & "'$.F1]"
next "SELECT * FROM [" & "'" & " & mysheetName- & " & "'" & "$.F1]"
or "SELECT * FROM [''" & mysheetName- "''$.F1]"
next "SELECT * FROM ['''" & mysheetName- "'''$.F1]"
etc. (and you can try variations of the location of the quotes)
One other option that came to mind was to try and use the sheets index instead of its name. I found this article that may be helpful: http://www.ozgrid.com/VBA/excel-vba-sheet-names.htm[^]
and a third option that came to mind is to first programmatically change the sheet name before you run the query against it (a bit clumsy, but once it runs, who cares right?).
And in conjunction to this idea: the sheet (name) seems to also get created by some sort of automatic process. Do you have access to this process?
My advice is free, and you may get what you paid for.
|
|
|
|
|
Hi
I have tried various options with the quotes with no sucess.
Once I have selected the workbook from which I want to import the sheet, I load the sheets in the workbook into a combo. The user can then select which sheet they want to import. I do this as follows:
<br />
For Each sheet As Excel.Worksheet In xlPacklistBook.Sheets<br />
Me.cboPackListSheetSelect.Items.Add(sheet.Name)<br />
Next<br />
Regarding the second option, I did try using the sheet index, but that did not work. I suspect it is because in the following code, the command data type is a string:
<br />
Dim cmd As New System.Data.OleDb.OleDbCommand("Select * from ['" & strSheet & "$.A:A]'", conn)<br />
In Excel VBA if you use Sheet(1) as a ref to a sheet, the one is an int value, not a string as in Sheet("mySheet")
I'm trying th e third option at the moment, but having hassles - I'll let you know if I get it right..
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
