Skip to Content

Archived discussions are read-only. Learn more about SAP Q&A

Update and Select Record

Can you help me !rolve myu2019s problem that I used ?

1: clicking View Child button, how the system only can display the 1-1 employee information ( Employee No 1à only show his/her child not show all Employeeu2019s child in the company).

Becase ,I used

Private Sub CreateForm(ByRef EmplID As String).

oForm.DataSources.DataTables.Item(0).ExecuteQuery("select EmpID,U_Child1,U_DateOB,U_Child2,U_DateOB2,U_Child3,U_DateOB3,U_Child4,U_DateOB4 from OHEM where EmpID=" + EmplID)

Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, _

ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

//

If ((pVal.ItemUID = "btnVC") And _

(pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK)) Then

CreateForm(u201C1u201D)

OForm = SBO_Application.Forms.Item("frmGrid")

OForm.Visible = True

End If

However,If I want to display childu2019s employee information next then it not display .Therefor,I used:

Public Sub ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, _

ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent

If "60100" = pVal.FormType And pVal.BeforeAction = False Then

Dim Emp As String

Emp = OForm.Items.Item("33")

//

If ((pVal.ItemUID = "btnVC") And _

(pVal.EventType = SAPbouiCOM.BoEventTypes.et_CLICK)) Then

CreateForm(Emp)

OForm = SBO_Application.Forms.Item("frmGrid")

OForm.Visible = True

End If

Are you can help me resolvable this problem ?

URL=http://imageshack.usIMGhttp://img509.imageshack.us/img509/4238/selectandupdateev0.png[/IMG][/url]

URL=http://g.imageshack.us/img509/selectandupdateev0.png/1/IMGhttp://img509.imageshack.us/img509/selectandupdateev0.png/1/w1012.png[/IMG][/url]

Former Member
replied
Emp = OForm.Items.Item("33")

=>

Emp = OForm.Items.Item("33").Specific.String

By the way, actually it is unnecessary to open a new question, just update the original question. then follow wit it.

Kind Regards

-Yatsea

0 View this answer in context
Not what you were looking for? View more on this topic or Ask a question