Help with Datagrid

[Srikanth]

Hi,

My requirement is to have the datagrid perform the work of an order
entry system. The specifications are something like this. I have got a
table in MS-Access, named master_software , whose fields are: soft_name,

edition, manufacturer, price.
My data grid would contain the following columns: Software Name,
Edition, Manufacturer, Quantity, Unit Price and Total price, of which
software name and edition are of combobox types. The user would select
the software name from the drop down list and then the next cell should

automatically fill the appropriate editions for that selected software.

After selecting the edition, the price should automatically come in the

Unit price cell and after entering the quantity of the s/w being
ordered, the total price should automatically populate based upon the
calculation.
I have initially written the code using datareaders and
OledbConnection . Later changed it to dataset and dataview. In either of

the cases, it doesn't work. Could anyone help me with this issue?
Regards,
Srikanth

[=?Utf-8?B?WE9S?=]

sure.

can u post ur code so I can get a clear idea of whats not working.

[Srikanth]

Hi,

Please find the code:

Private Sub DataGridView1_C ellEndEdit(ByVa l sender As
System.Object, ByVal e As
System.Windows. Forms.DataGridV iewCellEventArg s) Handles
DataGridView1.C ellEndEdit
If e.ColumnIndex = 0 Then
init_conn()
con.Open()
str = swname.DataGrid View.CurrentCel l.Value
cmd1 = New OleDbCommand("s elect * from master_software
where soft_name='" & str & "'", con)
rdr = cmd1.ExecuteRea der
Edition.Items.C lear()
While rdr.Read
Edition.Items.A dd(rdr.Item(4))
End While
Edition.AutoCom plete = True
con.Close()
End If
If e.ColumnIndex = 1 Then
find_manufactur er(str,
Edition.DataGri dView.CurrentCe ll.Value)
End If
If e.ColumnIndex = 3 Then
qty = Quantity.DataGr idView.CurrentC ell.Value
End If
If e.ColumnIndex = 5 Then
init_conn()
con.Close()
con.Open()
'MsgBox(orgid)
str = "insert into sw_orders
values('MS-01-05-06','wxp_home', " & orgid & ")"
'str = "insert into sw_orders
values('MS-01-05-06','wxp_home', 1002)"
MsgBox(str)
cmd = New OleDbCommand(st r, con)
i = cmd.ExecuteNonQ uery()
MsgBox(i & " record inserted")
con.Close()
End If
End Sub

Public Sub find_manufactur er(ByVal sw_name As String, ByVal
sw_edition As String)
init_conn()
con.Open()
cmd1 = New OleDbCommand("s elect * from master_software where
soft_name='" & sw_name & "' and edition='" & sw_edition & "'", con)
rdr = cmd1.ExecuteRea der
While rdr.Read
comp = rdr.Item(5)
uprice = rdr.Item(3)
End While
'txtqtn_id.Focu s()
'txtqtn_id.Text = "MS-1-05-06"
con.Close()
End Sub

Private Sub DataGridView1_C ellEnter(ByVal sender As Object, ByVal e
As System.Windows. Forms.DataGridV iewCellEventArg s) Handles
DataGridView1.C ellEnter
If e.ColumnIndex = 2 Then
Manufacturer.Da taGridView.Curr entCell.Value = comp.ToString
If e.ColumnIndex = 4 Then price.DataGridV iew.CurrentCell .Value
= uprice.ToString
If e.ColumnIndex = 5 Then
Total.DataGridV iew.CurrentCell .Value = Int(uprice) *
Int(qty)
'txtqtn_id.Focu s()
'txtqtn_id.Text = "MS-1-05-06"
End If
End Sub
On Jan 2, 8:18 pm, XOR <X...@discussio ns.microsoft.co mwrote:

sure.

can u post ur code so I can get a clear idea of whats not working.