[RESOLVED] subtracting the highlighted record in msflexgrid

[Quizton]

I am having trouble subtracting the highlighted record in the msflexgrid
it seems to be subtracting the record in the listbox instead of the highlighted one in the msflexgrid?

Private Sub cmdRemoveEntry_Click()
        With Adodc1.Recordset
        .Move (MSHFlexGrid1.Row - 1)
        .Delete
        .Requery
    End With
    Adodc1.Refresh
    Set MSHFlexGrid1.DataSource = Adodc1
    MSHFlexGrid1.FormatString = "Item Name       '|ect....
    txtEstimateTotal.Text = Format(Val(txtEstimateTotal.Text) - rs("TotalAmount"), "##.00")
    txtEstimatePrice.Text = Format(Val(txtEstimatePrice.Text) - rs("ItemPrice"), "##.00")
    txtEstimateTax.Text = Format(Val(txtEstimateTotal.Text) - Val(txtEstimatePrice.Text), "##.00")
'the problem lies in the - rs(...) part this needs to be changed to the highlighted record in the flexgrid
End Sub

[Quizton]

any suggestions would be greatly appreciated

[ganeshmoorthy]

could you explain it in detail, sorry I couldnt understand it

[Quizton]

Format(Val(txtEstimateTotal.Text) - rs("TotalAmount"), "##.00")

the txtestimatetotal needs to subtract the highlighted total in the grid instead of the rs("totalamount")

I just dont know how to select the highlighted record in the grid itself?
thanks for the replies

[si_the_geek]

If only one cell is selected, use: MSHFlexGrid1.Text

If you want to get the contents of a specific cell, use: MSHFlexGrid1.TextMatrix(RowNumber, ColumnNumber)

[Quizton]

is there a way to just select the highlighted record?
or do you have to choose the row and column?

[si_the_geek]

MSHFlexGrid1.Text returns the text of the current cell, no matter how .Row and .Col have been set (code, or UI).

To get certain cells from the current row, you can use something like:

Column1 = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 1)
Column2 = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 2)

which is the same as this:

With MSHFlexGrid1
  Column1 = .TextMatrix(.Row, 1)
  Column2 = .TextMatrix(.Row, 2)
End With

[Quizton]

Ive been trying to get this to work and it seems I cant use it in the math formula ?
Ill keep trying
thanks for the replies

[si_the_geek]

Show what code you are trying, and tell us what the problem is.

[Quizton]

Private Sub cmdRemoveEntry_Click()
        With Adodc1.Recordset
        .Move (MSHFlexGrid1.Row - 1)
        .Delete
        .Requery
    End With
    Adodc1.Refresh
    Set MSHFlexGrid1.DataSource = Adodc1
    MSHFlexGrid1.FormatString = "Item Name       '|ect....
    txtEstimateTotal.Text = Format(Val(txtEstimateTotal.Text) - rs("TotalAmount"), "##.00")
    txtEstimatePrice.Text = Format(Val(txtEstimatePrice.Text) - rs("ItemPrice"), "##.00")
    txtEstimateTax.Text = Format(Val(txtEstimateTotal.Text) - Val(txtEstimatePrice.Text), "##.00")
 
End Sub

that is my code to remove a entry also when I focus on a selection in the grid then that is the one that gets deleted I tried changing the -rs("totalamount") to the textmatrix and it didnt seem to work.
I am trying to subtract the columns with numbers in there from a totalamount (the estimate can range from 1 item thru 100 items)on a estimate instead of using the -rs because if I use the -rs then I will have to click on the record in the listbox above that has the services db or else it will subtract the wrong one sorry for the late replies I am home with a horrible cold
maybe I should wait and try when Im feelin a bit better.

[Quizton]

is there a way to select the format were total amount is in the grid
because it should subtract it then delete it since it will delete on focus I should be able to subtract on focus as well?

I thank you for the replies
I must be overlooking something here or possibly having trouble since I used a adodc data bar on this one wile all my other stuff is connected by code

I changed the add procedure to add to a rs of a different name than the one in the lisbox stuff and it bugged during the remove procedure saying item not found in this collection?
probly since it is bound? Ill try to code this and take out the bound controll and see if that cures my issues
this is the firs time I used a bound control in this project as well as the first time Ive used the flexgrid

[si_the_geek]

It is "data control", not "data bar"... and it is evil That could well be the cause of some of your problems. "item not found in this collection" means you have asked for a field that isn't in the recordset.

To use the grid text in your calculation, you can use this (just change 1 to the column you want to read from):

txtEstimateTotal.Text = Format(Val(txtEstimateTotal.Text) - Val(MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, [B]1[/B])), "##.00")

..Note however that this reads from the current row, and I'm not sure what that will be after you have reloaded via the data control; you may want to specify a row instead.

If you want to subtract the value that is highlighted at the time when the button is clicked, this line should just be moved to the top of the sub - while the value is still there.

[Quizton]

hey thanks again SI
it works perfectly now, I wasnt using VAL is why It didnt work sooner it will work even on reload I had to change the rows to minus 1 of the actual rows in the format but it seems to work well

And you are right about the evil binding I usualy dont ever do it but thought I could on this part to save some time but have had issues with it


It seems if I add 2 or more records to the flexgrid it will mess up the highlight and act like its multiselecting even though it is set to false. If I reload the page after Im done adding the records to the grids db then it will highlight how it is supposed to ?

I am going to try and find me a mshflexgrid tutorial and link this all by code and Im sure it will work properly after that


thanks again for the help you have helped me learn how to manipulate the grids and it now subtracts well

[si_the_geek]

I dont know of any tutorials, but there are several threads on the forums which explain how to do various things with it.

Here's one, which has a sub you can use to fill a grid from a recordset:
http://www.vbforums.com/showpost.php...9&postcount=16