Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Public Sub dgOrderSum_Edit(ByVal sender As Object, ByVal e As DataGridCommandEventArgs)
Me.dgOrderSum.EditItemIndex = e.Item.ItemIndex
Me.bindOrder()
Dim srchStr As String = e.Item.Cells(0).Text.ToString
srchStr = "SELECT wal, [35], [45], [55], [57], [88], [80], [10], [14], [20], [24] FROM wedDetails WHERE OrderID = " & Me.lblOrderNum.Text & " AND SubjectID LIKE '" & e.Item.Cells(0).Text.ToString & "'"
Dim newDg As New DataGrid()
newDg.ItemStyle.Font.Name = "Times New Roman"
newDg.ItemStyle.Font.Size = FontUnit.Medium
newDg.AlternatingItemStyle.BackColor = Color.LightGray
newDg.ShowHeader = False
newDg.DataSource = getTable(srchStr, comFunc.dbType.Access)
newDg.DataBind()
'e.Item.Cells(2).Controls.Add(newDg)
Me.dgOrderSum.Items(0).Cells(2).Controls.Add(newDg)
End Sub