Visual Basic

Wendelius29-Jul-15 23:33

29-Jul-15 23:33

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.

satc29-Jul-15 23:40

29-Jul-15 23:40

Myobject.mytext="This is line 1." + CHR(13)+CHR(10) + CHR(13)+CHR(10) + "This is line 2."

Wendelius30-Jul-15 0:56

30-Jul-15 0:56

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 = RichTextBox1.Text
   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?

satc30-Jul-15 1:08

30-Jul-15 1:08

Ok , but why should I have twice Chr(13)+Chr(10) ?
Why doesn't work using these chars once ?

Wendelius30-Jul-15 2:58

30-Jul-15 2:58

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.

satc30-Jul-15 4:06

30-Jul-15 4:06

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.

Wendelius30-Jul-15 4:47

30-Jul-15 4:47

I've tried to ask this many times. Does this happen with the test program I provided?

Eddy Vluggen30-Jul-15 1:24

30-Jul-15 1:24

If you are wondering why you were downvoted, then you should reread your entire thread.

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 1:27

30-Jul-15 1:27

If i have deserved , then thank you for downvoted .
My primary goal is to understand the problems I have described here.

Eddy Vluggen30-Jul-15 1:35

30-Jul-15 1:35

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 Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 1:45

30-Jul-15 1:45

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 !

Eddy Vluggen30-Jul-15 2:09

30-Jul-15 2:09

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 Smile | :)

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 2:34

30-Jul-15 2:34

sorry , really I don't understand what I have done wrong.

Eddy Vluggen30-Jul-15 2:46

30-Jul-15 2:46

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 Hmmm | :|

Bastard Programmer from Hell Suspicious | :suss:

If you can't read my code, try converting it here[^]

satc30-Jul-15 2:55

30-Jul-15 2:55

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 !

Wendelius29-Jul-15 2:00

29-Jul-15 2:00

progress bar, percent complete

Mycroft Holmes29-Jul-15 14:40

Mycroft Holmes

29-Jul-15 14:40

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

jkirkerx28-Jul-15 10:16

Re: progress bar, percent complete

28-Jul-15 10:16

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>

Eddy Vluggen28-Jul-15 11:42

Re: progress bar, percent complete

28-Jul-15 11:42

(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 Suspicious | :suss:

If you can't read my code, try converting it here[^]

Ross Pickard28-Jul-15 12:04

Ross Pickard

28-Jul-15 12:04

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

SQL

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

Re: progress bar, percent complete

jkirkerx30-Jul-15 13:27

ListOf, check for existing value first

30-Jul-15 13:27

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

jkirkerx28-Jul-15 9:31

28-Jul-15 9:31

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 "

[solved]

jkirkerx28-Jul-15 10:47

Is there any library to compare 2 sql server databases ?

28-Jul-15 10:47

Sort of like SQL Linq.

Dim reader As System.Data.OleDb.OleDbDataReader = command.ExecuteReader()
            While reader.Read()

                Dim m_itemNumber As String = reader.GetValue(0)
                Dim aFlag As Boolean = p.Exists(Function(m) m.ItemNumber = m_itemNumber)
                If (False = aFlag) Then

                    p.Add(New itemIndex() With {
                          .ItemNumber = m_itemNumber
                    })

                End If

            End While

satc27-Jul-15 0:49

Re: Is there any library to compare 2 sql server databases ?

27-Jul-15 0:49

Hello !
Is there any library to compare 2 SQL server databases inside a vb.net program ? ( I mean to compare the structure and relationships, no data)
Thank you !

Wendelius27-Jul-15 0:58