Datagrid - Return Total Rows
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.
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Return All Rows And Sort Rows In Excel
I am also a new VB Programmer, Currently ,i am working on a project that link VB to Excel.I am wondering how I can return the number of rows found int he excel spreadsheet and how to sort the data?
Thank you very much for helping.
WMI Does Not Return Total Memory
I'm using WMI to return the total RAM from my machine. I've got 256K but my code only returns
"Total Physical Memory (kb): 228336"
Here is my code
Public Sub test()'* Procedure: GetMemory'* Description Returns the total physical memory 'windows management interface object.Dim WMI As ObjectDim wmiWin32Objects As ObjectDim wmiWin32Object 'total memoryDim lngMem As Long Set WMI = GetObject("WinMgmts://" & "tombsg") Set wmiWin32Objects = WMI.InstancesOf("Win32_LogicalMemoryConfiguration") For Each wmiWin32Object In wmiWin32Objects lngMem = lngMem + wmiWin32Object.TotalPhysicalMemoryNext Debug.Print "Total Physical Memory (kb): " & lngMem End Sub
I've had a search of the forum but can't locate any related threads. Any ideas where i am going wrong.
Return Total Items In Stock
i'm making an inventory of supplies and i'd like to get the quantity in stock of all the items at any point in time.
in MS access database i have the following three tables (and the corresponding fields):
TABLE - Field
1. INVENTORY - ItemID, ItemCategoryID
2. SUPPLY - ItemID, PurchaseDate, PurchaseQuantity
3. CONSUMPTION - ItemID, ConsumeDate, ConsumeQuantity, ReturnQuantity
INVENTORY is the main table and has one to many relationship to SUPPLY and CONSUMPTION through the ItemID field.
SUPPLY and CONSUMPTION tables, therefore, can have many entries with respect to an item. CONSUMPTION table has ConsumeQuantity and ReturnQuantity because consumption is not solely internal. Some items are 'borrowed' by staff outside the department and they just 'return/replace' it (i.e, temporary consumption)
. So at any point in time the total count of a particular item is
Totalcount = Sum(SUPPLY.PurchaseQuantity) - Sum(CONSUMPTION(ConsumeQuantity - ReturnQuantity))
Can someone help me create the right sql statement that will do this for ALL the listed items in the INVENTORY table?
Thank you in advance.
Limit Total Number Of ROWS/COLUMNS
I'm working on a worksheet created by someone else. It has lots of VBA code included in it. The sheet itself has been formatted so that it only goes down as far as 1999 rows. Then it just stops. the rows that should be after it, doesn't appear...no row headings (numbers) or anything...just a solid color. I need to extend this back to its original form as i now have a new requirement that requires a minimum of 10,000 rows.
I get the feeling that the rows are actually still there, and i just can't see them. can someone tell me how to get these rows to appear again. I have been through all the options i can find, and no luck. Its not done by selecting a row, right clicking and then clicking "Unhide" (because how can i select something that i can't see?)
Just to clarify... There are literally NO cells below the 1999 mark. I can't select empty cells, i cant see row names(numbers), nothing. Something else that might be significant is that when the sheet is at the top, and the scroll bar is all the way up, if i grab it and move it down, it moves down in VERY large chunks. The alt message that says what row your currently on moves around 130 rows every 5mm i move the bar down. The scroll bar is the normal size that it would be on a brand new sheet though (i.e. its not really really small like it would be if there were thousands of readings)...oh, and it never changes in size.
Please, can someone tell me how to undo this very annoying formatting that my predesessor lef me with.
Thanks for any help
How To Determine Total Number Of Rows With ADODB
Like title says, how can i determine the total number of rows in Excel 2002!?
Im using an ADODB connection to a Oracle Database.
I cannot use the excel 97' way (see example below)
recArray = rs.GetRows
recCount = UBound(rs.GetRows, 2) + 1
Edit by Moderator:
Please post database questions, in the Database and Reporting forum.
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
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.
Invalid Row Number
For i = 0 To DataGrid2.ApproxCount - 1
DataGrid2.Row = i
DataGrid2.Col = 1
total1 = Val(total1) + Val(DataGrid2.Text)
Text8.Text = total1
Return Not The Desire Number Of Rows..
i have input 10 rows of data...and when i query (select) all the rows i only got the second set of 5 rows!... how come the first set of 5 rows are not shown?
Datagrid Column Total
Any One Help Me?
I have 4 columns in grid
I want to amout = price*Qty at time of type value
DataGrid Column Total
Any One Help Me?
I have 4 columns in grid
I want to amout = price*Qty at time of type value
Total Sum Of A Datagrid Column
I have a datagrid attached to an dbase app I am working on, the last column has a price value and I would like to create a total value for this column in a label or text box. I was searching back the old posts looking for some pointers or a code snippet that would do this but was unable to find anything.
Any help appreciated
Return Number Of Rows, Integer Replacement
I'm looking for some code that returns the total number of rows in a spreadsheet (e.g. total number of rows - 6), and then uses that number to replace code in an existing macro.
For example, in a worksheet, 61 is the total number of rows. I'm searching for code that counts the number of rows and subtracts 6.
Here's the beginning of my code:
Range("A1:J55").Sort Key1:=Range("C1"), Order1:=xlDescending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
In this example, the total number of rows is 61, but because I'm deleting the first 6 rows at the beginning, all subsequent references to the total number of rows is 61 - 6, or 55, like J55.
Is there code that can be written that will automatically count the number of rows and subtract 6 from that returned value (before the macro is run) and replace it in the existing code (after the 6 row deletion)?
If it sounds confusing, I can further clarify upon request.
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
Do Until rs.EOF
dSum = dSum + rs("Total2")
Set rs = Nothing
txtTotal.Text = dSum
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
For iCol = 0 To MSHFlexGrid1.Cols - 1
If iCol = 1 Then
mstTitle = .TextMatrix(iRow, iCol)
If iCol = 2 Then
mstDescription = .TextMatrix(iRow, iCol)
If iCol = 13 Then
mstRecordID = .TextMatrix(iRow, iCol)
stColumnHeader = MSHFlexGrid1.ColHeaderCaption(0, iCol) & ": "
stDisplayText = stDisplayText & stColumnHeader & .TextMatrix(iRow, iCol) & vbCrLf & vbCrLf
Now in VB.NET I am trying to do something like that when a user clicks a cell in a DataGrid.
With DataGrid2.Item(iCol, iRow)
For iCol = 0 To DataGrid2.VisibleColumnCount
stColumnHeader = DataGrid2.CaptionVisible.ToString & ": "
stDisplayText = stDisplayText & stColumnHeader & DataGrid2.Item(iRow, iCol) & vbCrLf & vbCrLf
But in this line "For iCol = 0 To DataGrid2.VisibleColumnCount" instead of DataGrid2.VisibleColumnCount I want the total column count any ideas?
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.
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.
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
How Can I Return The Number Of Rows In Each Table Using Dynamic SQL (the Exec Statment)
Hi all I need a little help returning the number of rows in each table from the sysobjects table that bigins sys; The following is the code I have so far, it gets the names of the tables which meet the criteria. I only need to get the COUNT of rows in each table.
SELECT name AS tablename
WHERE name LIKE 'sys%';
Any help would be greatly appreciated, Bronco
Excel Userform - Search Column For Field And Return Rows Of Data
I am very new to VBA, so I apologize in advance if I’m not formatting my questions appropriately.
I’m trying to create a “reporting tool” using a UserForm in Excel. There is a large master sheet full of data and the users will select which data they would like to view from the userform, click a command button, and then a smaller set of data will be viewable on the sheet. (Basically hiding rows and columns of data.)
Column A is Manager Name
Column B is Order Status
On the UserForm, users can select by Manager name to choose which records they would like to see. (Example, John Doe, Susy Q, Brad Brown)
They can also select Order Status (open, filled, cancelled).
I need some sort of code so that when the user selects “John Doe”, it searches through Column A and only returns the rows of data corresponding to John Doe. I need the same thing to happen if they select “open” for Order Status. (Searching Column B and returning corresponding rows for “open”.)
Is this possible? What type of function should be used for this?
Thanks in advance!
How To Get Total Number Of Records Of Records Return By Recordset?
I wanna get the total number of records returned by the record set. I used RecordCount, but it always return -1.
some 1 plz help me out.
Dim cnn as ADODB.Connection
Dim ars as ADODB.Recordset
set cnn = new ADODB.Connection
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:MapData.mdb;Persist Security Info=false"
Dim SQL as string
SQL = " Select * from Education"
set ars = cnn.Execute(SQL)
MsgBox ars.RecordCount 'NOR WORKING???
how do i restrict the number of coulumns that i can select in a datagrid
to just one row
that is at a particular attempt a user can select only one row
How Cam Add New Rows To A Datagrid
After populate my datagrid1 I want to add new records and it does not add new rows. It look like as static, I can write on the only row that show balnc but it does not display another row. I set the properties to True to add new rows, to delete, to update and nothing hapend. So my question is how can I do to make the grid open more rows. So the user not have opportunity to fill the columns.
Here is my procedure to feel the grid
strSQL = "Select * FROM ProjProd WHERE ProjectID =" & RecordID & ""
rsd.CursorLocation = adUseClient
rsd.Open strSQL, cn, adOpenKeyset, adLockOptimistic
Set DataGrid1.DataSource = rsd
Rows In Datagrid
Below is code to set up an ADODB recordset bound to a datagrid. I am unable to get the records to show up in the datagrid. Is there more code I need.
rMain(2).CursorType = adOpenStatic
rMain(2).LockType = adLockOptimistic
rMain(2).Open "SELECT * FROM Family" _
, cnn, , , adCmdText
DataGrid1.AllowAddNew = True
DataGrid1.AllowUpdate = True
DataGrid1.AllowDelete = True
DataGrid1.Enabled = True
Set DataGrid1.DataSource = rMain(2)
DataGrid1.Columns(0).DataField = "FirstName"
DataGrid1.Columns(0).Caption = "First Name"
DataGrid1.Columns(1).DataField = "LastNames"
DataGrid1.Columns(1).Caption = "Last Name"
DataGrid1.Columns(2).DataField = "FamilyName"
DataGrid1.Columns(2).Caption = "Family Name"
DataGrid1.Columns(3).DataField = "Spouse"
DataGrid1.Columns(3).Caption = "Spouse' Name"
Rows In Datagrid
i can search through columns in a datagrid
but i am having troubles searching through rows in a datagrid
my code for searching through columns in a data grid is as follows
Dim i As Integer i = 3 Do While i <> -1 txtWO = DataGrid1.Columns(i) MsgBox (txtWO) i = i - 1 Loop
if i change the above code to
Dim i As Integer i = 3 Do While i <> -1 txtWO = DataGrid1.Rows(i) MsgBox (txtWO) i = i - 1 Loop
it comes up with a compile error: Method or data member not found...
would anyone have a clue why it is doing this????
Datagrid And Rows
I have a datagrid and it is bind to a recordset. Now lets say I have 7 records in the recordset. So then my datagrid has 7 rows displayed for each record in my recordset. Now when I go and delete a record from my recordset, my datagrid will now display only 6 rows of records. The only problem is row number for each row does not change.
So lets say I have
Now I delete Row 5. My grid will be made up like this after the deletion.
Instead renumbering my rows to
This causes me a problem because i am using the event RowColChange which takes in a parameter LastRow and LastCol.
LastRow holds the row number of the row it was previously in and LastCol holds the col number of the col it was previously in. But if someone deleted a few records from my recordset, then when the event RowColChange gets called the LastRow value could be all messed up!! So in the example I gave on top if the user was in Row 7 and moved to a new row, when the event gets called LastRow will hold 7, but technically there is no Row 7, because the user deleted Row 5, which should make Row 6 now become Row 5, and Row 7 become Row 6!! Is there a way of fixing this?? I tried rebinding the datagrid to the recordset, but that did nothing besides screw up my format.
Datagrid # Of Rows
Three quick questions:
How can I programatically tell how many rows are in a datagrid?
How can I programatically tell how many rows are in an mdb table connected with ADO?
How do I programatically add rows to a table in an mdb connected with ADO?
Any help would be greatly appreciated!
Rows In Datagrid
I have a datagrid with a variable number of rows. I want to sum the coulmns, but I can't seem to find a way to move from one row to another in the datagrid or to determine even what row I am on.
Anbody have any ideas?
Copy Rows In Datagrid
How can I get to copy rows in datagrid with Ctrl-C for example to transfer these information to clipboard?
Exists an easy solution for it?
Editable Datagrid That I Can Add Rows To
I was looking at what seems my 2 only options: MS Datagrid (which lets you edit cells, but not add rows) and MS Flex Grid, which lets you add rows but not edit cells)
I need a grid that will let me add rows to it, as well as edit cells in the grid. I could do that trick with the flex grid putting a text box on top of the cell, but I was hoping there was a keener way.
Blank Rows In A DataGrid
I have built a DateGrid and here is what's going on. When the form opens up, the DataGrid will populate with the correct number of rows so if I had 35 rows in my recordset, there would be 35 rows in the DataGrid. Here's the problem. The rows created are blank. I will post my code in a minute. I have checked to make sure all of the form and DataGrid properties are set correctly and I have debugged the software and the recordset, when ran, does hold the correct information but the rows are blank. Here's the kicker. I wrote a snippet that would move the recordset to the 6th row and when I ran the program, it would take the value of the 6th row and place it in a text box. That worked perfectly and the DataGrid even showed the arrow beside the 6th row. I'm stumped. Can anyone see any errors in my code or have any clue why this is happening? Thanks, Jeremy
Private Sub Form_Load()
'Declare Connection Variables
Dim OraCon As New ADODB.Connection
Dim OraRec As New ADODB.Recordset
Dim SQLQuery As String
'Create Connection Object
Set OraCon = CreateObject("ADODB.Connection")
OraCon.ConnectionString = "Provider=OraOLEDB.Oracle;" & _
"Data Source=MYDB;" & _
"User ID=*****;" & _
OraRec.CursorLocation = adUseClient
SQLQuery = "SELECT IM_KEY,IM_DESCR FROM IM ORDER BY IM_KEY"
OraRec.Open SQLQuery, OraCon, adOpenKeyset, adLockOptimistic, adCmdText
If OraRec.RecordCount = 0 Then
MsgBox "No record found!"
Set DataGrid1.DataSource = OraRec
Transfer Rows From One Datagrid To Another
I would like to know what I am missing. I have imported an excel sheet into a datagrid and have added checkboxes. I have also set the checkboxes to be true on default. I need to know how to be able to transfer those ticked rows to another datagrid. This is to be done by clicking on another button. It needs to look at how many and which rows have been left ticked and then transferred over to another datagrid.
The users will only be touching the checkboxes if they need to unselect them.
Here is my code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Create an OpenFileDialog in order to browse for an Excel file.
Dim fileDialog As New OpenFileDialog
'Use a DialogResult to determine whether the user selected a file or cancelled.
Dim dialogResult As DialogResult
'Setup the OpenFileDialog
.Title = "Select Excel File"
.Filter = "Excel (*.All files)|*.*"
.CheckFileExists = True
dialogResult = .ShowDialog
If dialogResult = dialogResult.OK Then
'Call the ShowExcelFile routine as we have a file.
Public Sub ShowExcelFile(ByVal excelFile As String)
'Using ADO.NET, populate a DataTable with the contents of the first sheet of an Excel file.
'more logic will be required if you need to display a certain work sheet.
Dim connection As OleDbConnection
Dim adapter As OleDbDataAdapter
Dim excelData As DataTable
'Instantiate the connection object using a connection string suitable for Excel
connection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & excelFile & ";" _
& "Extended Properties=Excel 8.0")
'Prepare the OleDbDataAdapter to select data from the first worksheet.
'NB: This assumes that the first worksheet is called Sheet1.
adapter = New OleDbDataAdapter("SELECT * FROM [Sheet1$]", connection)
'Instantiate the excelData DataTable and populate it by using the Fill method of
Dim dc As DataColumn
Dim dr As DataRow
excelData = New DataTable("ExcelData")
Dim ds As DataSet
ds = New DataSet("ExcelData")
dc = excelData.Columns.Add("Yes", System.Type.GetType("System.Boolean"))
excelData.Columns.Item("Yes").DefaultValue = True
dr = excelData.NewRow
DataGrid1.DataSource = ds
'Clear any bindings from the DataGrid and set the DataSource of the DataGrid
'to the new excelData DataTable
DataGrid1.DataSource = excelData
Catch ex As OleDbException
Catch ex As InvalidOperationException
Catch ex As Exception
'Tidy up used objects
If Not connection Is Nothing Then connection.Dispose()
If Not adapter Is Nothing Then adapter.Dispose()
If Not excelData Is Nothing Then excelData.Dispose()
'This is to get the checkbox to react to the first click
Private myCheckBoxCol As Integer = 0 'my checkbox column
Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles DataGrid1.MouseUp
Dim hti As DataGrid.HitTestInfo = Me.DataGrid1.HitTest(e.X, e.Y)
If hti.Type = DataGrid.HitTestType.Cell AndAlso hti.Column = myCheckBoxCol Then
Me.DataGrid1(hti.Row, hti.Column) = Not CBool(Me.DataGrid1(hti.Row, hti.Column))
Catch ex As Exception
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
' I need something to go here to retrieve the ticked rows.
Can somebody please help? I'm new to VB and i'm using Visual Studio 2003.
Counting Rows In A Datagrid
im revisiting an issue i havent been able to resolve. How would i go about counting the total number of rows that are pulled within the datagrid. the datagrid1.row for some reason only counts the rows that are visible on the screen. however i would like to have a total count of all rows. how could i go about this. thanks
Color For Rows In DataGrid
I have a datagrid Control, and i want some rows in accordance with some criterial has a diferent color. For example, the rows with data USA, rows color blue. Rows with data EUROPE rows color red... etc
how can i do ??
Locking Rows In A Datagrid
what i need is lock some rows in a datagrid.
the problem is there is no lock property for rows in a datagrid so i tried to lock the whole datagrid (each column) depending on a value in one of the datagrid columns (this column contains the criterium if the row is editable or not)
the problem is what is the right event i should hang the check if the row is editable or not onto?
i tried it with rowcolchange but that didn't work as well as click and double click.
when i used click the row which was checked was the row in which the bookmark was before the click event and when i used dblclick the problem was that when i left the current (editable) row the whole datagrid stayed editable because i didn't dblclick it.
here is the code :
Dim i As Integer
dgr.Col = 7
If CInt(dgr.Text) = 1 Then
For i = 1 To 7
dgr.Columns(i).Locked = False
For i = 1 To 7
dgr.Columns(i).Locked = True
or is there any other possibility i didn't think of?
Multiselect Datagrid Rows
Hi, is there a way (or code) to which I can have a multiselection in the db grid (dbgrid32.ocx) like when I press shift key or ctrl key then click the rows I want to select?
Delete Rows From A Datagrid
I want to delete records from the datagrid
here's what my datagrid look like, just a sample..ok
I only want to delete rows which has 'f' on it
here's my code so far...
For i = 0 To dbgChks.ApproxCount - 1
If dbgChks.Columns(5).Value = "f" Then
I don't know what to write between the if statement, for I haven't
use a dbgrid in removing records, I'm trying to edit a program
and the dbgrid was the object used
dbgchks is the name of the dbgrid
please help, thanks in advance
Selecting Rows In A DataGrid
I'm using a datagrid (dgSrchRes) that is populated programatically froma recordset (rsSrchRes). After data is diplayed in the datagrid the usershould be able to locate a record by entering a value into an unboundtext box (sglFreq) and clicking a command button. I'm using thefollowing code for locating the desired row but it is not working:
rsSrchRes.Find "Frequency = " & sglFreq
If rsSrchRes.EOF Then
MsgBox "Specified Frequency not found", vbOKOnly, "Note"
Please if anybody have an answer to this, I'll be very thankfull.
Scroll Thru DataGrid Rows
I am trying to read through each row in the datagrid. However, I am staying on the row that is currently highlighted in the grid. ????
Here is the code I have. The actual column in the grid is an expiry date. So, I am checking to see if any or all of the rows have an expiry date... I they all do then I need to display a message BUT if even one of the rows does not have an expiry date(meaning they are still active) then I will not need the message displayed.
Thanks in advance for any help you are able to provide.
Dim i As Integer
Dim count As Integer
For i = 1 To grdBeneficiaries.ApproxCount
If (g_AppUtil.GetGridColumnValue(grdBeneficiaries, 4)) <> "" Then
count = count + 1
If count = grdBeneficiaries.ApproxCount Then
MsgBox CONST_MSG_CLOSE, vbExclamation
Cancel = True
Datagrid Rows Question
I am using a datagrid to navigate through a recordset contained in an ADODC Recordset.
How can I tell which row I've clicked in in the datagrid so I can navigate through the recordset to that record? The area I am having a problem is when the datagrid scrolls so that the displayed records are completly different than originally displayed, so the datagrid.row property doesn't apply. It seems limited to the displayed set of rows.
Removing Rows From Datagrid Help
I have a datagrid that is bound to a recordset as its datasource. Part of the applications operation is the user can select a single item or multiple items in the grid and click a button to remove them. To do this I iterate through the .SelBookmarks and remove the rows by deleting them from the recordset and then the RS gets updated.
The proble is, if the user removes am item, then removes a second one all goes crazy when setting the grid row to a selected row! Basically after removing the first row the first time and then removing the second row after the selected row may be 0 but the first selected bookmark in SelBoolmarks is 2
Is there some way around this?
Processing All The Rows Of A DataGrid
I've noticed from a few posts that people have been wondering how to process all of the rows of a DataGrid, since it is not apparent in the available Properties/Methods.
I for one, have been frustrated by the fact that .Row only applies to .VisibleRows which sucks. I have written the following code for going through all of the rows of a DataGrid. I hope it helps some people. If there has already been code posted doing just that, then great. If not, then great. So it doesn't matter really. Have fun!
Dim MajorCounter As Integer
Dim counter As Integer
'MajorCounter allows you to go through all of the
'rows of the DataGrid. Adodc1 is the Data Source for
MajorCounter = Adodc1.Recordset.RecordCount
'Start from the last Row up to the first
.Scroll 0, MajorCounter
'Handle all of the visible Rows before .Scroll
counter = .VisibleRows
Do While MajorCounter > 0
'Do the visible Rows first
If counter > 0 Then
.Row = counter - 1
counter = counter - 1
'The visible Rows are handled, now for
'the rest going up to the first Row
.Scroll 0, -1
'Each Row that appears at the top because
'of .Scroll should be the current Row
.Row = 0
'Do whatever you want to do here for each .Row
MajorCounter = MajorCounter - 1
Highlighting Rows In Datagrid
is that possible that i can highlight a or multiple rows in a datagrid (juz like in flexigrid, change the cell background into red when load)?
if yes, how can i do it?
thanks a lot
Edited by - peh1696 on 4/28/2005 1:51:10 AM
# Cols, # Of Rows In Datagrid
I am using VB6 and implementing a function which autosize a datgrid. The heading is as follow:
Code:Public Sub autoResize(ByRef dGrid as dataGrid)
I am thinking of using a nested for loop which get the max textwidth of each col and row and update the column width of the datagrid. However, how can I get the number of columns and rows so that I can use this information in the for loop.
Selecting Rows In A Datagrid
Is it possible to "know" which row is clicked upon when a user clicks in a datagrid? If so what is the method called? I have been playing with a few of the methods but haven't found anything.
I want to use the "key" of each row to open a new window with more detailed information than what is contained in the grid.