|
These questions have been asked and answered a week ago, see here[^].
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
I have use a datagrid in my sales software, now when the user select any item and qty i want to calculate its value in another columns.
say for example:
Col "Items"
Col "Qty"
Col "Rate"
Col "Total Value" - I want to calculate the total value.
Thanks,
Sohil Masani
|
|
|
|
|
Here is a code snippet that I found online a while ago that helps:
Try this code in DataGrid CellEndEdit Events (note: this will sum the items
not multiply. So you will just modify it to check whether the cells have values and then multiply the values. i am to lazy to retype it)
Dim iTotal As Integer = 0
With DataGrid1
For i As Integer = 0 To .ColumnCount - 2
If Not IsDBNull(.Rows(e.RowIndex).Cells(i).Value) Then
iTotal += .Rows(e.RowIndex).Cells(i).Value
End If
Next
.Rows(e.RowIndex).Cells(.ColumnCount - 1).Value = iTotal
End With
modified on Wednesday, January 27, 2010 2:59 AM
|
|
|
|
|
Hi Sohil,
You can use the Datagridview_CellEndEdit() for manipulating the calculations. For example, from the below, suppose your "qty" column number is 3 or your "rate" column is 4 then, it can be...like the following
Private Sub MyDataGrid1_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles MyDataGrid1.CellEndEdit
If e.ColumnIndex = 3 or e.columnIndex = 4 Then
Try
MyDataGrid1.CurrentRow.Cells("total value").Value = MyDataGrid1.CurrentRow.Cells("qty").Value * MyDataGrid1.CurrentRow.Cells("rate").Value
Catch ex As Exception
End Try
End If
End Sub
|
|
|
|
|
Developer,
I am looking for a code which retrieves data from the listview to textbox, combobox...etc. When I click on listview recode, I want it data pass to those textbox, combobox.
Thanks,
Chuon Visoth
Angkor Wat - Cambodia
asp.net - c sharp beginner
|
|
|
|
|
TextBox1.Text = ListView1.SelectedItems(0).Text
TextBox2.Text = ListView1.SelectedItems(0).SubItems(1).Text
|
|
|
|
|
It still doesnt work!
Private Sub lvwStaff_ItemClick(ByVal Item As Object)
Me.txtInsurance.Text = lvwStaff.selecteditems(0).Text
Me.txtName.Text = lvwStaff.selecteditems(0).SubItems(1).Text
Me.txtAddress.Text = lvwStaff.selecteditems(0).SubItems(2).Text
Me.txtAddress.Text = lvwStaff.selecteditems(0).SubItems(3).Text
End Sub
Chuon Visoth
Angkor Wat - Cambodia
asp.net - c sharp beginner
|
|
|
|
|
Try to check with events lvwStaff_Click() and not from lvwStaff_ItemClick()
|
|
|
|
|
It still does not work at all. It says "Object does not support this property or method."
Thanks,
Chuon Visoth
Angkor Wat - Cambodia
asp.net - c sharp beginner
|
|
|
|
|
Can you show me the code.....for Listview, how the items are added?
|
|
|
|
|
Is this thread solve his problem? I want this too. Pls help us to solve
|
|
|
|
|
Hi Experts,
I'm quite new to VB6 & I need to know how to update a field using ADODC in VB6.I think it can't be very heard.but I'm unable to find my error in my code.These are my file Details...
Database - Access97
Database name - db1
file name - FileTbl
fields - Number,Date
Textboxes - txtNum,txtDate
First I need to enter the number & date in textboxes & when I press the ok button, i need to find the record in field "Number", with the value which I entered in the txtNum & need to update field "date" with the value in txtDate.That's all.
I think it's very simple,but I tried many more times..Still I'm unable to understand my mistake.
Please Help Me...This is my code...
Private Sub cmdOk_Click()
Dim conn As Adodb.Connection
Dim rs As Adodb.Recordset
Set conn = New Adodb.Connection
Set rs = New Adodb.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\db1.mdb"
conn.Open
rs.Open "SELECT * FROM FileTbl WHERE Number =" & Me.txtNum
rs!Date = Me.txtDate
rs.Update
rs.Close
conn.Close
Set cn = Nothing
End Sub
Thanks a lot.... 
Thanking you !!!
~ Sathish Chandimal ~
modified on Wednesday, January 27, 2010 7:14 AM
|
|
|
|
|
New to VB6?? Don't bother. Stop now before you pick up a bunch of very bad habits and start by learning VB.NET.
VB6 is long since dead and is no longer supported by MS.
I also refuse to help on VB6 questions anymore because I believe it just promots people to want MS to keep the thing around and working on future versions of Windows.
|
|
|
|
|
Yes...But this is not a new project & I also don't like to programming with oldest languages, but this is a oldest program which coding by VB6 & I have to do some modification on it..
please help me sir...
thanks..
Thanking you !!!
~ Sathish Chandimal ~
|
|
|
|
|
You beat me by 7 hours with this post 
Not only VB6 being disturbing that the OP is new to, but using Access 97 as well 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
They only just got electricity and inside toilets last month, so they are getting there!
|
|
|
|
|
Dave Kreskowiak wrote: New to VB6?
Take a look at his first post ever, around December of 2008. It's a VB6 question 
"The clue train passed his station without stopping." - John Simmons / outlaw programmer
"Real programmers just throw a bunch of 1s and 0s at the computer to see what sticks" - Pete O'Hanlon
"Not only do you continue to babble nonsense, you can't even correctly remember the nonsense you babbled just minutes ago." - Rob Graham
|
|
|
|
|
Private Sub cmdOk_Click()
Dim conn As New Adodb.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Documents and Settings\db1.mdb"
conn.Open
Dim cmd As New ADODB.Command
cmd.ActiveConnection = conn
cmd.CommandText = "UPDATE FileTbl SET [date] = " & Me.txtData & " WHERE [Number]=" & Me.txtNum
cmd.CommandType = adCmdText
cmd.Execute
Set cmd = Nothing
conn.Close
Set conn = Nothing
End Sub
Two additional warnings;
0) You're declaring a connection conn, while releasing cn at the end. It should release the conn object, not a new variable. (Is Option Explicit turned on?)
1) You're vulnerable to SQL-injection, using an ADODB.Parameter might help.
Good luck 
I are Troll 
|
|
|
|
|
hi everyone
i have a problem.i have a selector column in my janus gridex.i want when i select this field a particluar cell gets enable and when i deselect the selector column this cell gets disable.my problem is that all the column of my particluar cell gets enable.
|
|
|
|
|
This is a question for Janus, not us. The best source of information on 3rd party controls is the manufacturer of the control. They usually have support forums on their site for questions like this.
|
|
|
|
|
hi
My application is like a brick game where i have to fill the space with
correct brick size.
i have a large rectangular/square container
in that container , i have to place small rectangles or squares
so that there should be less wastage of space in the container.
first my doubt is can we do this application using vb.net or .net
if yes then can you give a little bit idea or a link which can be helpful to me to start this kind of application.
thanking you in advance
vijay kumar D
|
|
|
|
|
I don't have any links to offer, but I am sure Google has lots.
This is really a mathematical problem where you need to create an array showing the empty spaces and then fill them with bricks. I assume that you know the algorithm to do this; the actual coding can be done in any language you choose.
MVP 2010 - are they mad?
|
|
|
|
|
you can do that perfectly with the .NET framework.
you can do it with VB.NET, I would use C# but that is a personal preference of mine.
I suggest you read some CodeProject articles on games.
and you need to learn and help yourself, so search for those articles and start reading!
Luc Pattyn [Forum Guidelines] [Why QA sucks] [My Articles]
I only read code that is properly formatted, adding PRE tags is the easiest way to obtain that. [The QA section does it automatically now, I hope we soon get it on regular forums as well]
|
|
|
|
|
This sound to me very similar to a shipping logic problem.
The below is defiantly not the answer but it is a start.
Dim shapeArray(3, 2) As Integer
Dim containerWidth As Integer = 11
Dim containerHeight As Integer = 7
shapeArray(0, 0) = 5
shapeArray(0, 1) = 5
shapeArray(1, 0) = 2
shapeArray(1, 1) = 5
shapeArray(2, 0) = 1
shapeArray(2, 1) = 1
shapeArray(3, 0) = 5
shapeArray(3, 1) = 6
Dim totalArea As Integer = 0
For i As Integer = 0 To UBound(shapeArray)
totalArea += (shapeArray(i, 0) * shapeArray(i, 1))
Next
If totalArea > (containerWidth * containerHeight) Then
MsgBox("Shapes are unable to fit into container")
Exit Sub
End If
The above code basically checks to see if all the shapes will fit into the container/main box. You will perhaps need to sort the array into longest sides, then position the largest sized shapes into the box first.
Also take into consideration that some of the shapes could potentially be rotated.
Might be worth looking into logic/calculations for packing boxes as well as games development, Id be very interested to know if you find some good samples.
Hope this helps.
|
|
|
|
|
Hi all,
My application works fine.
However, I am connecting to 5 DBF files and the queries are very slow.
[If I copy the DBF files to the local hard drive everything runs fast enough. 30-40 seconds vs. 1-1.5 minutes]
The DBF needs to stay on the network.
I am hoping that using the index will speed things up enough.
Can anyone tell me how or give me a code example on how to index on DBF files?
Tell me more about using DBF files in a speedier manner?
Thanks in Advance
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
