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_CellEndEdit(ByVal sender As
System.Object, ByVal e As
System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellEndEdit
If e.ColumnIndex = 0 Then
init_conn()
con.Open()
str = swname.DataGridView.CurrentCell.Value
cmd1 = New OleDbCommand("select * from master_software
where soft_name='" & str & "'", con)
rdr = cmd1.ExecuteReader
Edition.Items.Clear()
While rdr.Read
Edition.Items.Add(rdr.Item(4))
End While
Edition.AutoComplete = True
con.Close()
End If
If e.ColumnIndex = 1 Then
find_manufacturer(str,
Edition.DataGridView.CurrentCell.Value)
End If
If e.ColumnIndex = 3 Then
qty = Quantity.DataGridView.CurrentCell.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(str, con)
i = cmd.ExecuteNonQuery()
MsgBox(i & " record inserted")
con.Close()
End If
End Sub

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

Private Sub DataGridView1_CellEnter(ByVal sender As Object, ByVal e
As System.Windows.Forms.DataGridViewCellEventArgs) Handles
DataGridView1.CellEnter
If e.ColumnIndex = 2 Then
Manufacturer.DataGridView.CurrentCell.Value = comp.ToString
If e.ColumnIndex = 4 Then price.DataGridView.CurrentCell.Value
= uprice.ToString
If e.ColumnIndex = 5 Then
Total.DataGridView.CurrentCell.Value = Int(uprice) *
Int(qty)
'txtqtn_id.Focus()
'txtqtn_id.Text = "MS-1-05-06"
End If
End Sub
On Jan 2, 8:18 pm, XOR <[e-mail]:

sure.

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