Visual Basic :: DataGrid Column Total

Total Currency In DataGrid Column
Here is the code I'm trying to use to add the currency in Column1 of a DataGrid and have it show in the txtTotal.Text textbox. I have used this a couple of years back so I just copied the code but am now getting an error here

dSum = dSum + rs("Total2")

It has something to do with rs("Total2")
Would appreciate any and all help

========================================
Dim fmtCurr As New StdDataFormat
fmtCurr.Format = "Currency"
Set DataGrid1.Columns(1).DataFormat = fmtCurr
Dim rs As ADODB.Recordset
Dim dSum As Double
Set rs = Adodc2.Recordset.Clone
rs.MoveFirst
Do Until rs.EOF
dSum = dSum + rs("Total2")
rs.MoveNext
Loop

Set rs = Nothing

txtTotal.Text = dSum
===========================

Thanks

DataGrid Total Column Count
Here is a question in VB6 you could do something like this to go through all the cells in a MSHFlexGrid1

PHP Code:

With MSHFlexGrid1
      For iCol = 0 To MSHFlexGrid1.Cols - 1
        If iCol = 1 Then
          mstTitle = .TextMatrix(iRow, iCol)
        End If
        If iCol = 2 Then
          mstDescription = .TextMatrix(iRow, iCol)
        End If
        If iCol = 13 Then
          mstRecordID = .TextMatrix(iRow, iCol)
          GetRecordID
        End If
        stColumnHeader = MSHFlexGrid1.ColHeaderCaption(0, iCol) & ": "
        stDisplayText = stDisplayText & stColumnHeader & .TextMatrix(iRow, iCol) & vbCrLf & vbCrLf
      Next
    End With

Now in VB.NET I am trying to do something like that when a user clicks a cell in a DataGrid.

PHP Code:

With DataGrid2.Item(iCol, iRow)
            For iCol = 0 To DataGrid2.VisibleColumnCount
                stColumnHeader = DataGrid2.CaptionVisible.ToString & ": "
                stDisplayText = stDisplayText & stColumnHeader & DataGrid2.Item(iRow, iCol) & vbCrLf & vbCrLf
            Next
        End With

But in this line "For iCol = 0 To DataGrid2.VisibleColumnCount" instead of DataGrid2.VisibleColumnCount I want the total column count any ideas?

Total Of A Column
Hi Again
I am trying to get a report to add the total of a column in a Query but I keep getting an Error message in the textbox where the answer should be.
the code I am using is (Sum([TxtSubTotal]))

Total Sum Of Column
Hi, had this in VB Newbie instead of hear....

I have a True data grid control "TDBGrid1" attached to an True Data Control "TdataPayments" connection string "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:InstoreDBdata1.mdb;Persist Security Info=False"

In my "TDBGrid1" I have a column "Amount" which is a currancy value, I would like to sum / total this column into a text box "txtAmountTotal".

I have searched back the old posts looking for some pointers or a code snippet that would do this but was unable to find anything.

I am enjoying learning VB and my VB is getting better, but this has me lost...

Any help appreciated

Thanks

Bobby123

How Do I Total A Column In MSHFlexGrid
i got a MSHFlexGrid, and i have amount value on one of the column, i want to add them all so i can see the total amount.
could u guys help me please

thank u in advance

Msflexgrid Column Add Total
OK I want to find the total price from data in a msflexgrid COLUMN and show it in a text box Dont know how to do it.

Total Of A Column In Flexgrid
have a column which i need to get the total of,its a list of doudles,i have a loop but im having trouble getting it to......loop!

Code:
Do While MSHFlexGrid1.TextMatrix(rw, 4) <> Null
total = total + MSHFlexGrid1.TextMatrix(rw, 4)
rw = rw + 1
Loop

its column 4 of the flexgrid
im sure theres a better way and i know theres a thread explaining it but i cant find it,sorry

How To Get The Total Amount Of A Column?
Friends,

How can I get the total of one entire column in a textbox in database?

Getting A Total At The End Of A Flexgrid Column
hi, i have a flex grid populated with overtime hours and the employees details - i'd like to know how to calculate the total overtime worked and pop it in at the bottom of the grid....is this possible?!
thanks

Get Sum Total Of Column In Listview
I need to get Sum total of numeric data in in column

Private Sub cmdLoad_Click()
Dim itm As ListItem
Itemcount = lv.ListItems.Count
Dim a As String, b As String, C As String
Open App.Path & "Converted.txt" For Input As #1
Do Until EOF(1)
Input #1, a, b, C
Set itm = lv.ListItems.Add(, , a)
itm.SubItems(1) = b
itm.SubItems(2) = C
' should I place code here and what code?
Loop

Close #1
' or here maybe a For loop to loop through though I am not
' sure just how to write the loop
' I was thinking something like
ItemCount = lv.Listitems.Count
For i = 1 to ItemCount
' some code here not sure what
Next i
End Sub

Need Help on this one

vbMarkO

Get The Total Of A Column Of A Flexgrid
How would you go about getting the total(currency) of a column in a MSHFlexGrid??

Getting The Total Of A Column In A MSHFlexGrid
How would you go about getting the total(currency) of a column in a MSHFlexGrid??

Every day above ground is a GOOD DAY!!!

Total Up Column In Msflexgrid
Hi,

I am using ADO and Access. I pull the data from a table into a mshflexgrid. I have a currency field in Access called "service fee". I have positioned a text box directly above the "service Fee" column in the flexgrid and would like the total to be inserted here.

How do I go about getting this total?

I was thinking about creating a query based on this column and pulling it down into a variable.
or maybe the total can be created in Access and then pulled down - not sure how to do this either!

Any ideas or advice will be much appreciated.

Thanks in advance

Dzon

Column Total In VB In Excel
I'm trying to get the total of a column, starting at E2 to the end, but this procedure will be run on files of varying lengths, so the number of rows needs to be a variable. I'm getting an
Run time error '1004', Application-defined or object-defined error.
Code:Sub AddTotalLine()

  Dim lngUsedRange As Long
  Dim lngLastLine As Long
  Dim lngDataLines As Long


  Sheets("PAYROLL REGISTER - BURDEN").Select
  lngUsedRange = ActiveSheet.UsedRange.Rows.Count
  lngLastLine = lngUsedRange + 1
  lngDataLines = lngUsedRange - 1
  Sheets("PAYROLL REGISTER - BURDEN").Cells(lngLastLine, 5).FormulaR1C1 = "=SUM(R[-lngDataLines]C:R[-1]C)"




End Sub

If I replace -lngDataLines, in the SUM, with -167 (the actual number needed for the test data I'm using) it works fine. I've tried using E2 for the first reference instead but it as a string instead of a cell reference. How can I fix this? Or is there a better way?

Listview1 Column Total
Sir,
I use VB6 and MSAccess. I get data to the listview. I want to TOTAL of one of the columns in the Listview where some numeric data is found. The data to the listview is brought through ADODC control. Is it possible to get the TOTAL of a column through the ADODC link?

pkb_pkb

Add A New Column After The Row Grand Total
By using Crystal Designer, I created a crosstab report to show the number employees in every department. The summarized column contain 2 different sum field, "foreign" and "local".

         JAN      FEB
Department           Grand Total
----------------------------------------------------------------
ProductionA Foreign      [20] [30]    [ 50]
     Local [60] [50] [110]
ProductionB Foreign [30] [35] [ 65]
     Local [55] [50] [105]

As we can c, the crosstab report will auto generate a grandtotal field for my summarized column. Now, my question is: How could I change the Grand Total into the "Average No. of Workers". the formula should look like this:
sum(foreign)/12.

Any idea? ^_^

Listview Column Total Summing
Hello.

I have a listview and need to find the total value of the currency figures in one of the columns.
Is this possible, if anyone knows the answer your help would be much appreciated.

Thanks,
SKM

Create A Total Value For A Column In A Grid
Hi

I have a True data grid control attached to an dbase app I am working on, the last column has a currancy price value and I would like to create a total value for this column in a label or text box.

I have searched back the old posts looking for some pointers or a code snippet that would do this but was unable to find anything.

My VB is getting better, but this has me lost...

Any help appreciated

Thanks

Bobby123

How To Accumulate A Running Total For Each Cell In A Column
Hi,

I'm a newbie to the board. Also a newbie to Excel, although I made my living for about 10 or so years coding integrations using Access VBA, and before that, as a professional coder in a big, awkward database/OS called PICK. Thats just so folks know I'm not an inexperienced coder. But I'm a newbie to Excel.

So, I've wrestled for days to figure something out. I'm sure I'll be embarassed when its explained to me, but whats a little pride? LOL

I've a datafeed coming in over DDE. Column B is entitled LAST, column C is entitled TRADE_VOL, column D is entitled TRADE_TIME, & column H is entitled ASK.

Here's what I want but can't figure out: I want a running total column of the amount of volume that happens at ASK and a running total column of volume that happens not at ASK. I'll call these two columns ASKSIDE & BIDSIDE, respectively.

So, every time a trade happens, TRADE_TIME changes. When an event happens on TRADE_TIME, I want to look at the current value of LAST, ASK & TRADE_VOL. If LAST < ASK, then I want to add TRADE_VOL to my BIDSIDE column else, I add it to ASKSIDE.

My problem is that I keep running into the fact that I can't seem to add TRADE_VOL to the new columns. In the database languages I code in, it would be something like:
IF LAST < ASK then BIDSIDE = BIDSIDE + TRADE_VOL else ASKSIDE = ASKSIDE + TRADE_VOL.

It seems that, in Excel, to can't refer to the variable BIDSIDE (or ASKSIDE) on both sides of the equals sign. How does Excel handle this kind of issue? I can't figure it out.

TIA

Imperial Whazoo (Excel Newbie)

How To Show A Formula In The Total Column When Adding Cells?
Hi,

At the moment I have some VB code that adds together specified cells in Excel.

Currently the code is as follows:
.Cells(20, 1) = .Cells(20, 2) + .Cells(20, 3) + .Cells(20, 4)

.Cells(20, 1) totals up the columns ok but how do I display this number as a formula so that if I make changes to columns 2,3 & 4 the number in column 1 will automatically update

Thanks in advance

Excel VBA - Finding The Total Values In A Range Or Column
Hi
This isnt really an VBA question as such, but I will give it a shot anyway!

I want to find the total of values in a range, however to test the SUM function within a module, with the following piece of code, I keep getting Run time error 13, type mismatch:

Code:Declarations:

Dim lngColumnValueTotal As Long

Code:

lngColumnValueTotal = "=SUBTOTAL(SUMFunction, E6:E11)"

I have tried an alternative function..
Code:
Declarations:
Dim lngColumnValueTotal As Long

Code:
lngColumnValueTotal = SUM(E6:E11)

but the error here is Compile error, expected list separator or )

Does anyone have any ideas how to get either of these to functions to work in a module in vba?

Regards
Natalie

Total In Datagrid
can somebody tell me how to add total column in a datagrid
say i want to get total in column 2 of the datagrid

DataGrid Total
Heloo.

I am using the code belwo to calculate the total of a column in a datagrid, it works OK, but when the datagrid reaches hundreds of records, it display the below error message. I have to maximaize the datagrid to the highest in order for this code to work, otherwise this error message will appear with a few records.

Error Message

Invalid Row Number
======================

Code Used:

Dim total1

For i = 0 To DataGrid2.ApproxCount - 1

    DataGrid2.Row = i


    DataGrid2.Col = 1

        total1 = Val(total1) + Val(DataGrid2.Text)
Next

Text8.Text = total1

Thanks

How To Move The Cursor From One Column To Next Column In Datagrid
Hi
Everyone,
    In Datagrid control, how the cursor move from one column to another column of the same row after updating the datagrid.
    plz anyone help me.

    thanking you in advance.

Datagrid - Return Total Rows
Hi,
I am using a datagrid first-time and simply want to return the number of total records. Its only one column and I want to get a row count.

something like statusbar.simpletext = Their are 200 records in this datagrid.

Any help appreciated.
Thanks.

Display Total In Datagrid Footer/last Row
hi i got a problem on how to display the total value of the records in each record from a database. i have populated the datagrid with the records from the database, but i dont know how to display the total amount in the last row of the datagrid.
please help..

Currency Total From Datagrid Inserted Into Txtbox
I have a datagrid that the user can edit, delete. add etc and it works fine.

The total from one currency column needs to be automaticly updated after the user makes changes and he clicks a Save cmdbutton. At the moment with this code I can only make it work by using a seperate command button to update the total. I would like to do it without using a cmdbutton to update the total. The error I get if I include the code anywhere else is you cannot add a empty row. Hopefully someone can show me how to modifiy this code.

VB Code:
If Adodc2.Recordset.RecordCount <> 0 And Adodc2.Recordset.BOF = False And Adodc2.Recordset.EOF = False ThenDim fmtCurr As New StdDataFormat fmtCurr.Format = "Currency" Set DataGrid1.Columns(1).DataFormat = fmtCurr Dim rs As ADODB.RecordsetDim dSum As DoubleSet rs = Adodc2.Recordset.Clone rs.MoveFirstDo Until rs.EOF If IsNumeric(rs("ValueChgOrder")) Then _ dSum = dSum + rs("ValueChgOrder") rs.MoveNextLoop Set rs = Nothing txtTotal.Text = FormatCurrency(dSum)ElsetxtTotal.Text = "" End If

Thanks for any help

Add Column To Datagrid
Hi everybody; I hope one of you can help me.

I am displaying a table with a datagrid and want to add a column with the values from another table as it's contents.

Both tables have columns titled CODE. The second table has a field called TYPE that corresponds to the CODE (eg. CODE 101 means TYPE Maintenance). What I want to do is put the values of TYPE from the second table into the datagrid displaying the first table I'm not allowed to add a column into the table being displayed by the datagrid.

I'm connecting to the database thru Adodc (DISA for the first table; CODES for the second table)

I found this but when I try to populate the fields from the second Adodc (CODES) it doesn't work. I figure that's because the Datagrid1 is connected to DISA.

Private Sub AddColumn()
Dim c As Column
Set c = DataGrid1.Columns.Add(DataGrid1.Columns.Count)
With c
.Visible = True
.Width = 1000
.Caption = "type"
.DataField = CODES.Recordset.Fields("CODE").Name

'if i use .DataField = DISA.Recordset.Fields("WHATEVER").Name it
'puts the values from 'WHATEVER' into the column "type"

.Alignment = dbgRight
End With
DataGrid1.ReBind
End Sub

Any ideas?? Thanx in advance.

Set DataGrid.Column Value
Hi,

ive got a Problem with my data grid, i have a DataGrid where the Data Source is an DataEnvironment, allright it works, but now i want do add a column to that grid where i calculate fe: Column1 * Column2 but if i want to insert the value in the column with: DG.Columns(3).Value an error apears:

Column not found, |1

what have i to do to do that???

Column In Datagrid
Hi,
I have a datagrid that bind to a table. Some of the columns of the table are not editable. For those columns in the datagrid, I want to gray them out.
The datagrid property does not give enough tools for me to set up.

Please show me how.

Thank you,

Quang

Datagrid Column
On a form I have a datagrid...how do i specify the column width for each seperate column??

Datagrid Column
I don't want my identity column to show up in my datagrid. How do I control which columns I want visible and which ones I don't?

How To Add Column To Datagrid
Anyone know how to manually add a column to a datagrid.

The default value of the grid when you create the object is to only have two columns, I need 13. Thanks

Nightfox02

Datagrid Column Sum
I have a column in datagrid that displays all the prices. I want to sum up all the values from all the rows of that column and display it as a label. How can I sum up the data??

Thanks ... Bhavesh

Add Column To DataGrid
I am new to working with grids and cannot figure out how to add a column.
The grid is a DataGrid ActiveX Contol - Version 6.0. I can look at the
properties and code but cannot see where to add the column.

I appreciate your help.
Kevin

Add A Column In A Datagrid
I would like to know if it is possible to add a column in a datagrid.
I would like to have a column to describe all line in my datagrid.
By the way, is it possible to display a long text in the header on two line but in the same cell.
For example I have the text "this is my new cell"
And I would like that it display like that:
"this is my
new cell"
because I don't want that my columns have a width of 4000

Thanks in advance

How To Add A New Column Into A Datagrid ?
Hi,

I have a datagrid1 on my screen. I have a recordset myRst contains 3 fields (id, name, age). I set myRst as the datasource for my datagrid.
     set DataGrid1.datasource = myRst

Then I want to add a new column into this datagrid1, which can show info depend on the value of AGE. for example, if age < 12, show 'KID'; if 13 <= age <= 25, show 'Tenage'....

        DataGrid1.Columns.Add (3)
        DataGrid1.Columns(3).Width = 350
        DataGrid1.Refresh

Now i want to populate this new column using following code:

myRst.movefirst
do while myrst.eof = false
    with datagrid1
        if .columns(2).value < 12 then
            .columns(3).value = "kid"
        ......
        end if
    end with
    myrst.movenext
loop

When i ran the program, first 3 columns populuated successfully, but last column is empty, and I got following error:
        Column not found, /1

What does this mean?

Grace

How To Get The Column Name Of Datagrid
Is there anyone know how to get the number of columns and its corresponding name of datagrid and put it in list box or variable.

Or there's another option except datagrid which get the field name of a table.

Note: I only knew the name of the table but i dont know its field name.

Thank you very much for your reply.

Datagrid Column Sum
I am trying to find a way to sum the values of a column in my datagrid. I have not even found a way to isolate a single cell, row coordinate. Please help.

How Can I Get The Column Name Of The Datagrid
I want to get the name of the column when I double-click that column in a datagird control
how can i do it?
Thank u

[Resolved}DataReport With Sub Total And Grand Total With Out DataEnvironment
rsTotals.Open " SELECT Account_Type, Tax_Type, SUM(Payment)AS Total " _
              & " FROM tbl_TransDetails " _
              & " WHERE Entry_Date = # " & Date & " # GROUP BY Account_Type, Tax_Type ", _
                dbCCP, adOpenDynamic, adLockOptimistic, adCmdText

With rptSumTotals
       Set .DataSource = rsTotals

          .Sections("Section1").Controls.Item("txtAccounttype").DataMember = ""
         .Sections("Section1").Controls.Item("txtAccounttype").DataField = rsTotals.Fields("Account_Type").Name
          .Sections("Section1").Controls.Item("txtTaxtype").DataMember = ""
         .Sections("Section1").Controls.Item("txtTaxtype").DataField = rsTotals.Fields("Tax_Type").Name
          .Sections("Section1").Controls.Item("txtTotal").DataMember = ""
         .Sections("Section1").Controls.Item("txtTotal").DataField = rsTotals.Fields("Total").Name

   'for sub total
           .Sections("Section7").Controls.Item("fnSumTT").DataMember = "" 'rsTotals
         .Sections("Section7").Controls.Item("fnSumTT").DataField = rsTotals!Total
      'for grand total
          .Sections("Section5").Controls.Item("fnGTotal").DataMember = "" 'rsTotals
        .Sections("Section5").Controls.Item("fnGTotal").DataField = rsTotals!Total

         .Refresh
          .Show
giving error: its looking for payment values instead of Total values. so not able to find.
i placed Function control in Group footer section for sub totals and for grand total in Report footer section.
i am not using Data Environment as Data Source.
SQL is good, with out sub and Grand total i am able to print report with Total. after adding Those two function controls i am getting error.
If i assign rsTotals as DataMember "Type Missmatch error"

Help Me, Thanks in advance
>>>>>>>>>>>>>>>>>>>>>>

Edited by - sreddy on 3/24/2005 9:25:02 AM

DataGrid Column Width Value?
In this expression...

DataGrid.Columns.Item(iCol).Width = 1000

What type is '1000'?
Is it a Pixel, char...number.....etc....i cant figure it out......

the reason for this is I have a MSflex grid which has a column width of 20...i would like to know how to convert that number to the equiv in a datagrid..Please any help would be great. Thanks in advance

DataGrid Column Width Value
What is the Column Width Value Type.....ie... Pixels, Spaces, Points? etc...

Datagrid Column Control
I want to remove the column in my datagrid that shows the ID. How do you control which columns are visible?

Datagrid Column Width ????
I have two datagrids that are exactly the same. The only difference is that I am using them on different forms, and one of them has a filter.

My question is this.
On the first datagrid, I could write column widths like this
AppointmentsDataGrid.Columns("time").Width = 40
AppointmentsDataGrid.Columns("patient").Width = 150
AppointmentsDataGrid.Columns("Doctor").Width = 150
AppointmentsDataGrid.Columns("status").Width = 50
and the output was as I expected.

but then, on the second grid, when I write the same thing, the column widths get rediculously small. Is there a way of specifying the units used for the column widths that I have missed?

Jagdip

DataGrid Column Total

Hello Any One Help Me?I have 4 columns in grid 1 itemname2. Price3 Qty4 Amout I want to amout = price*Qty at time of type value

Hello
Any One Help Me?
I have 4 columns in grid
1 itemname
2. Price
3 Qty
4 Amout
I want to amout = price*Qty at time of type value