|
I take it that is part from an SQL command.
The problem is that you're defining LF/CR twice so in the overall result is LF/CR/LF/CR so only the middle part is correct. ASCII codes
- CR = 13
- LF = 10
In the example I wrote, try the following for the initial value and fetch it. Should show up nicely:
update TestDataRTF
set textvalue = 'A' + char(13) + char(10) + 'B'
where id = 1
|
|
|
|
|
I take it that is part from an SQL command.
The problem is that you're defining LF/CR twice so in the overall result is LF/CR/LF/CR so only the middle part is correct. ASCII codes
- CR = 13
- LF = 10
In the example I wrote, try the following for the initial value and fetch it. Should show up nicely:
update TestDataRTF
set textvalue = 'A' + char(13) + char(10) + 'B'
where id = 1
Edit:
Sorry, I read the codes you posted wrong so they seem to be on correct order. So have a try with the example I wrote. As far as I can see, it works.
|
|
|
|
|
No , this is not part of a pure sql command.
I just write :
Myobject.mytext="This is line 1." + CHAR(13)+CHAR(10) + CHAR(13)+CHAR(10) + "This is line 2."
But if I use once Char(13)+Char(10) , doesn't work ???? !!!
|
|
|
|
|
Now I don't quite understand. Char is a type not a function so if I copy and paste your code fragment to a VB.Net project it'll give the following error
Error 'Char' is a type and cannot be used as an expression.
|
|
|
|
|
Myobject.mytext="This is line 1." + CHR(13)+CHR(10) + CHR(13)+CHR(10) + "This is line 2."
|
|
|
|
|
Okay so it's Chr, not Char.
Still, works just fine. Please use the test program I wrote. Modify the Save button as follows
Private Sub Save_Click(sender As Object, e As EventArgs) Handles Save.Click
context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "This is line 2."
context.SaveChanges()
End Sub
The result for me is correct:
This is line 1.
This is line 2.
Using that test program, do you get different results?
|
|
|
|
|
Ok , but why should I have twice Chr(13)+Chr(10) ?
Why doesn't work using these chars once ?
|
|
|
|
|
You still haven't verified was the output the same with the test program that I posted...
So I take it you got the exact same output. In that case you can clearly see that when you put character codes 13 and 10 twice, you get two newlines. If you put them only once meaning instead of this
context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + Chr(13) + Chr(10) + "This is line 2." you code like this
context.TestDataRTF.Find(1).textvalue = "This is line 1." + Chr(13) + Chr(10) + "This is line 2."
You get only one newline like this
This is line 1.
This is line 2.
instead of the previous
This is line 1.
This is line 2.
So as far as I can see everything is working correct.
If the behaviour you experience with the test program I wrote is different, please provide all information concerning the code and the behaviour.
Then again if the test program works as expected, then your original program has some kind of flaw which is affecting the output. Also in such case, a lot more info would be needed.
|
|
|
|
|
no you're wrong. If I put CHR(13) and chr(10) once , I will get a text without any linefeed.
Only when I use these char twice I get :
This is line 1.
This is line 2.
|
|
|
|
|
I've tried to ask this many times. Does this happen with the test program I provided?
|
|
|
|
|
If you are wondering why you were downvoted, then you should reread your entire thread.
Bastard Programmer from Hell 
If you can't read my code, try converting it here[^]
|
|
|
|
|
If i have deserved , then thank you for downvoted .
My primary goal is to understand the problems I have described here.
|
|
|
|
|
satc wrote: My primary goal is to understand the problems I have described here.
Instead of asking whether someone is qualified to answer - ask for details, more explanation, or an example.
People that are attacked usually don't like to help, and it often results in threads with a lot of unfriedly messages.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
ok , I see that you want more to speak for other topics than the question topic.
Can you please , show me what is the phrase that I wrote and has attacked someone ?
And , to not repeat the "possible" mistake , do you have any moral code here that I can read and not make an error anymore?
Thank you !
|
|
|
|
|
satc wrote: ok , I see that you want more to speak for other topics than the question topic.
Just the post I replied to.
satc wrote: do you have any moral code here that I can read and not make an error anymore?
Same as asking for help in the street.
Any street, any part of the world.
satc wrote: Thank you !
You're welcome 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
sorry , really I don't understand what I have done wrong.
|
|
|
|
|
On the suggestion on writing a small application to reproduce the issue, you replied;
satc wrote: Have you tried this before speaking ?
The intention was only to explain the reasoning behind the vote; I see I merely created more bickering 
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
If you follow the thread , you will see that the solutions proposed were not working for me.
So I just was asking if someone has tried or just give several suggestion : try this , or try this , or try this....
I think if someone post a solution that is proved to give a correct result is better.
What is wrong to ask if someone has tried something ?
Sorry , but I can't read all the users profile to know that someone is a specialist , or no.
Taking your example for " ...someone asking for help at street ..." I have a similar case :
" A person has break a leg in the street , and someone tell to use a specific mode to bandage. I may ask to this person: Sorry have you tried this before ? "
What is wrong with this question ?
If this "someone" respond : "Yes because I'm a nurse" , I will respond " sorry I didn't know it"
Thank you !
|
|
|
|
|
|
I suspect it may be the RichTextBox and the way it treats it's content. I suggest changing the control to a normal TextBox allow it to accept line feed (Return) and see what the results are.
Caveat, I have not worked with winforms controls for over 5 years so this may be completely wrong.
Never underestimate the power of human stupidity
RAH
|
|
|
|
|
My formula or code is terrible for calculating the percentage complete based on 100
There must be a better way to write this.
Just looking for suggestions, in this example, there are 330 records, and the step is .0627
So the first value is -1, and the program bombs. Now my m_progressPos is always 0.
I mostly write web apps, so I don't have much experience with this.
This is what I have.
If (itemIndex.Count > 0) Then
dialogPos = 0.0
dialogStep = 100 / itemIndex.Count - 1
dialogWait.UpdateProgress(1, "Located " & itemIndex.Count & " product items(s)")
End If
rC = 0
For Each i As itemIndex In itemIndex
dialogPos += dialogStep
Dim m_dialogPos As Integer = Convert.ToInt32(Math.Round(dialogPos))
m_dialogPos = If(m_dialogPos > -1, m_dialogPos, 0)
dialogWait.UpdateProgress(m_dialogPos, "Calculating profit for " & i.ItemNumber & " (" & rC & " of " & itemIndex.Count & ") ")
load_SR_Invoice_Profit(connection, i.ItemNumber, profits)
rC += 1
Next
<pre>
|
|
|
|
|
(100 / max number of items) * current position.
I would also recommend on updating on a specified interval, not each item. Something like below;
int startTick = Environment.TickCount;
if (Environment.TickCount - startTick > 250)
{
UpdateStatus();
startTick = Environment.TickCount;
}That way you get the optimal througput without having to synchronize to the mainthread for each item.
Bastard Programmer from Hell
If you can't read my code, try converting it here[^]
|
|
|
|
|
Possibly an easier way for you to achieve your result would be to set the Progressbar maximum property in your dialog to the itemIndex.Count value, that way you won't have to worry about the calculating your percentage - just set the progress bar value from i to itemCount
To do this you would need to create a new property for your dialogWait class to hold the progress bar maximum e.g.
Class dialogWait
Public WriteOnly Property progressmax() As Integer
Set(value As Integer)
myprogress.Maximum = value
End Set
End Property
(this is assuming you have a progress bar control called myprogress of course). Then you could change your main code section to this
If (itemIndex.Count > 0) Then
dialogWait.progressmax = itemIndex.Count
End If
rC = 0
For Each i As item In itemIndexes
rC += 1
dialogWait.UpdateProgress(rC, "Calculating profit for " & i.ItemNumber & " (" & rC & " of " & itemIndex.Count & ") ")
load_SR_Invoice_Profit(connection, i.ItemNumber, profits)
Next
|
|
|
|
|
I was pretty brain dead this day, I should of said that I wanted to keep the max value at 100%, and constantly calculate for any number of records at 100%.
So today with the progress bar breaking, I took the time to fix it, and went to a basic calculator website to figure out the formula, in which there really was no formula, just basic math that was so simple.
And yes this is the loop function that I wrote about in my post in the database form about merging SQL for FoxPro statements that I posted 5 mins ago.
In the end, I need to dump this code for something faster, but it works for now until I can figure out something better.
So thanks Eddy for the suggestion, and the other op as well.
If (invIndex.Count > 0) Then
dialogPos = 0.0
dialogWait.pb_progress.Maximum = 100
dialogWait.UpdateProgress(0, "Located " & invIndex.Count & " invoices(s)")
Dim rC As Integer = 0
For Each i As invoiceIndex In invIndex
Dim m_percentage As Decimal = ((rC / invIndex.Count()) * 100)
Dim m_dialogPos As Integer = Math.Round(m_percentage)
dialogWait.UpdateProgress(m_dialogPos, "Calculating profit for Invoice " & i.InvoiceNumber & " (" & rC & " of " & invIndex.Count & ") ")
load_SR_Invoice_Profit(connection, i.InvoiceNumber, profits)
rC += 1
Next
|
|
|
|
|
I create a class to use in List(of class)
Then I'm populating the class with item names.
I wrote this, but I'm still getting duplicate value, so I got it wrong somewhere.
Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
While reader.Read()
Dim m_itemNumber As String = reader.GetValue(0)
If Not p.Contains(New itemIndex() With {.ItemNumber = m_itemNumber}) Then
p.Add(New itemIndex() With
{
.ItemNumber = reader.GetValue(0)
})
End If
End While
Maybe I got it wrong in the SQL
" SELECT " & _
" DISTINCT FITEMNO " & _
" FROM " & _
"( " & _
" SELECT " & _
" h.FITEMNO " & _
" FROM ARTRS01H.dbf h " & _
" WHERE h.FINVNO = @FINVNO " & _
" UNION ALL " & _
" SELECT " & _
" v.FITEMNO " & _
" FROM ARTRS01.dbf v " & _
" WHERE v.FINVNO = @FINVNO " & _
") " & _
" GROUP BY FITEMNO "
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
