|
|
Hi Folks I am Using Visual Basic within Excel and have encountered a problem I hope someone can help with
I have a table of Bills and months ie
Month1 Month2 ........
Bill 1 0 0
Bill 2 0 0
Bill 3 0 0
For each bill there is a value in the month column.
Each Cell starts with a value of 0
I create a NEW worksheet ie - NEWSHEET and this passes a formula back to cell C3 on sheet Bills
C3 before = 0
C3 after = NEWSHEET!L5 - showing the contents of Cell L5 ON Sheet NEWSHEET
When I delete the NEWSHEET for whatever reason the value of C3 changes to this:-
C3 becomes =#REF!L5
In itself this isn't a problem as I was expecting this to happen however once the cell contains =#REF!L5
I want to run a small script to look at each cell and if the value of the cell is =#REF!L5 then I want to reset the value to zero
if the value of the cell isn't =#REF!L5 then I wish to leave the value alone
Hope this makes sense and that someone can assist
|
|
|
|
|
Look up functions IsNA, IsError... you can use those to check the cell values and modify contents if needed.
HTH
|
|
|
|
|
Hi all,
first i stored employee name into an array from start_cell_number to end_cell_number like this
Dim testarray() As String = New String(47) {}
For i = start_cell_number To end_cell_number mean (4 to 8)
testarray(i) = (dr("User_Name").ToString())
Next
then tried to findout total number of user name repeated in an array like this
Dim noOfTimes As Integer = 0
For Each str As String In testarray
If str = Label1.Text Then
noOfTimes = noOfTimes + 1
End If
Next
here iam getting total number of user name repeates in an array but when iam putting below line in loop block iam getting result like this
Response.Write(noOfTimes.ToString() + "" + Label1.Text)
00001234444444444444444444444444444444444444444444444444444 but i have to need result like this
00001234000000000000000000000000000000000000000000000000000 becuase username only repeated 4 times.
kindly suggest me where iam doing mistake.
thanks in advance
Regards
Rameez
|
|
|
|
|
Hi
When you are filling your array
you are not doing a dr.next() to get the next record?
you have to be careful when your are using this !
e.g
while (dr.next())
{
//make something
}
|
|
|
|
|
kindly explain in little bit detail what i have to do .
dr.next() where i have to use . dr(is table row here not data reader) in my case.
Here is my code
For Each dr In dt.Rows
' Dim Myarray As String
a = (dr("StartDateTime").ToString())
Dim timeSpanDiff1 As TimeSpan = a.Subtract(start_display_datetime) '
Dim mins1 As Integer = timeSpanDiff1.Hours * 60 + timeSpanDiff1.Minutes '//total minutes
start_cell_number = mins1 / 15 '
' Label1.Text = start_cell_number
'Response.Write(start_cell_number.ToString() + "</br>")
b = (dr("EndDateTime").ToString())
Dim timeSpanDiff2 As TimeSpan = b.Subtract(start_display_datetime) Dim mins2 As Integer = timeSpanDiff2.Hours * 60 + timeSpanDiff2.Minutes
end_cell_number = mins2 / 15 '//count number of cells
Label1.Text = (dr("User_Name").ToString())
For i = start_cell_number To end_cell_number
testarray(i) = (dr("User_Name").ToString())
Next
Next
<code> Dim noOfTimes As Integer = 0
For Each str As String In testarray
If Str = Label1.Text Then
noOfTimes = noOfTimes + 1
End If
Next
Response.Write(noOfTimes.ToString() + "" + Label1.Text)</code>
For d = 0 To 31
Dim tbcell As TableCell = New TableCell
If testarray(d) = Nothing Then
tbcell.BackColor = Color.Yellow
Else
tbcell.BackColor = Color.Green
tbcell.ColumnSpan = noOfTimes
End If
tbcell.Text = " "
trow.Cells.Add(tbcell)
Next
Table1.Rows.Add(trow)
Next
please check this that where iam doing mistake .
Regards
Rameez
modified on Monday, August 18, 2008 1:09 AM
|
|
|
|
|
i want to Store and retrieve data from web server (internet) from my desktop application which i developed in vb.net
can anyone give me the solution how to do this task.
|
|
|
|
|
You have to use "WebService" or "WCF", if you are on .NET 3.0.
|
|
|
|
|
hi Christian
Actually i want to store and retrieve data into my sql which is on web server.
Is it okey if i pass id address and userid,password in connection string in .net application?
|
|
|
|
|
ershad wrote: Is it okey if i pass id address and userid,password in connection string in .net application?
If your app is used on the same network as your users, or if your SQL Server is actually exposed so anyone can connect to it and run SQL on it ( a colossaly bad idea ). then yes.
Most intelligent people would write a webservice to do this.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Christian Graus wrote: Most intelligent people would write a webservice to do this.
I second that.
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
Hii
Add the Web reference in your project and create the instance of web reference and use the methods of your web service.
Thanx
~Khatri Mitesh
|
|
|
|
|
What web service ?
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Christian Graus wrote: What web service ?
Beats me. I didn't get the impression the OP already created a web service 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
|
|
|
|
|
if you can give ip, username and password to the sql server then
why not directly connect to the database and insert or retireve records.
If i am getting your point right then if its a desktop application then direct connection won't do any harm to the database.
|
|
|
|
|
hi.. could you pls help me solve this problem..i am just finding the way "how to import .csv or .txt file into listview control??" i have a code which is akin to it but it reads everything inside the file add to the listview only one line.. so how about line by line adding??... below is my code..
Private Function ReadTextFile(ByVal sFileName As String) As String
Dim s As String
Try
Dim oFile As FileStream = New FileStream(sFileName, FileMode.Open, FileAccess.Read, FileShare.Read)
Dim oReader As StreamReader = New StreamReader(oFile)
s = oReader.ReadToEnd()
oReader.Close()
oFile.Close()
ReadTextFile = s
Catch
ReadTextFile = "Unable to open file."
End Try
End Function
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s As String
s = ReadTextFile(Environment.CurrentDirectory & "\ReadMe.txt")
ListView1.Items.Add(s)
'MessageBox.Show(s)
End Sub
|
|
|
|
|
File.ReadAllLines returns an array of strings which is a valid data source for a list view.
Christian Graus
No longer a Microsoft MVP, but still happy to answer your questions.
|
|
|
|
|
Learn something new every day, this is why I lurk here, thanks.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
Yeah thanks 
I was always using a more complicated way of reading lines into an array 
Lloyd J. Atkinson
"Logic will get you from A to B, but imagination will take you everywhere" - ALbert Einstein
I look at Microsoft, and turn to my poster on the wall saying: "Bang head here in case of stress".
|
|
|
|
|
Ok, well i am making a graphing calculator, and it's the simplest part i can't seem to figure out. I have a panel that is 416x416, which the graph will be drawn on. I have variables, xMin, xMax, yMin, yMax, that store the minimum and maximum for the x and y values. Now, the first step in rendering the graph is to draw the X and Y axises, and based on the minimum and maximum of the values will determine where the origin for the graph is. That's what i'm having problem with, i can't seem to generate code that will, in pixels, give the origin for the graph. Right now, the calculator only works if -xMin = xMax = -yMin = yMax, meaning the origin would be in the center of the 416x416 panel, at point (208, 208). If the xMax was twice as much as the -xMin, then the X axis would be 1/4 off of the panels left side. I can't seem to code an algorithm, when passed the xMax, xMin, ect., will return the origin of the graph. It will work with some values, but not all. Please let me know if i have not explained enough.
void Play() { try { throw Ball(); } catch (Glove) { } finally { Play(); } }
"Failure is only the opportunity to begin again, this time more wisely."
"Don't ask for a light load, but rather ask for a strong back."
|
|
|
|
|
have you tried (math.abs(xMin) + xMax) / 2
That is if xMin is "-200" and xMax is 400 the result is (200 + 400) / 2 = 300
EDIT: Unless you are already using negative values in X, Y then you would use
((math.abs(xMin) + xMax) / 2) - math.abs(xMin)
or
((200 + 400) / 2) - 200 = 100
|
|
|
|
|
A million thanks. I had tried something like that, but it was so complicated and didn't even work. Can't believe it was that simple.
void Play() { try { throw Ball(); } catch (Glove) { } finally { Play(); } }
"Failure is only the opportunity to begin again, this time more wisely."
"Don't ask for a light load, but rather ask for a strong back."
|
|
|
|
|
Hi everybody,
I built and app that uses threads for a number of task, and at the end of every routine I call the Abort() method for its respective thread. While looking at the thread count indicator at the Task Manager, I noticed that this indicator always increases while the Output window indicates that the threads had successfully exited.
Is this normal or am I doing something very wrong?
Thanks great minds for your guidance.
Alex.
|
|
|
|
|
alexvw wrote: I call the Abort() method for its respective thread
As MSDN says about Thread.Abort(), The thread is not guaranteed to abort immediately, or at all. It's always good to exit the threads rather than calling Abort(). Please post your code so that we can come up with better suggestions.
|
|
|
|
|
//Declare thread var
Private Shared BkGrthread As Threading.Thread
//call sub that starts the thread
Private Sub Frm_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
...
InitThread(BkGrthread, 1)
...
End Sub
//Sub that starts the thread
Private Sub InitThread(ByRef Thread As Threading.Thread, ByRef ThreadIndex As Byte)
Try
Select Case ThreadIndex
Case 0 : Thread = New System.Threading.Thread(AddressOf ReceiveWkStat)
Case 1 : Thread = New System.Threading.Thread(AddressOf ReceiveTCPMsg)
Case 2 : Thread = New System.Threading.Thread(AddressOf ReceiveSys)
End Select
Thread.IsBackground = True
Thread.Priority = System.Threading.ThreadPriority.Normal
Thread.Start()
Catch
Msg(Err.Description, 16, "FrmMain::InitThread")
End Try
End Sub
//the following code was not created by me, I copied and modified it to fit my needs (so far it seems to work!)
Private Sub ReceiveTCPMsg()
Dim _data(1024) As Byte
Dim iMsg(), _Message As String
Dim TCPIP As Net.Sockets.TcpClient
Dim Stream As Net.Sockets.NetworkStream
Try
TCPIP = UDPManager.AcceptTcpClient
Stream = TCPIP.GetStream : Stream.Read(_data, 0, 1024)
TCPIP.GetStream.Close()
Stream = Nothing : TCPIP = Nothing
_Message = System.Text.Encoding.ASCII.GetString(_data)
iMsg = _Message.Split(",")
Select Case iMsg(1)
Case 1 : Invoke(sLoadNewEvent, New Object() {iMsg}) '**New Event Insertion
Case 2 : Invoke(sRemoveEvent, New Object() {iMsg}) '**Event Deletion
Case 3 : Invoke(sItemUpdate, New Object() {iMsg}) '**Event Item Update
Case 5 : Invoke(sTimeChange, New Object() {iMsg}) '**Update Event's Time
Case 6 : Invoke(sStatusChange, New Object() {iMsg}) '**Update Event's Status
Case 7 : Invoke(sTypeChange, New Object() {iMsg}) '**Update Event's Type
Case 11 : Invoke(sNewEventData, New Object() {iMsg}) '**Event Data
Case 12 : Invoke(sDeleteData, New Object() {iMsg}) '**Del Event Data
Case 13 : Invoke(sMaintenance, New Object() {iMsg}) '**system Maintenance
Case 15 : Load_IncrementValues()
Case 99 : UnconditionalEnd()
End Select
Catch
Msg(Err.Description & Chr(10) & _Message & Chr(10) & Err.GetException.StackTrace, 16, "MainMod::ReceiveTCPMsg")
Finally
InitThread(BkGrthread, 1)
End Try
BkGrthread.CurrentThread.Abort()
End Sub
This is all the code involved. I am using VS2002 Fmwrk 1.1. Most subs modify several controls on the main thread, therefore the use of Invoke.
Please, feel free to laugh or cry upon this code 
Thanks for your time.
<div class="ForumMod">modified on Saturday, August 16, 2008 7:20 AM</div>
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
