The grid is bound to the SerialNoView but the SerialNoView does not
appear in the data tools. Below is the code that I am using to
populate the grid:
'// Next Sub Added for Serial Numbers
Private Sub InitializeProcCallDataViews()
Dim whereClause As String
whereClause = "Company ='$%' And PackSlip ='$%'"
csm.UpdateProcCallDataView
("SerialNoAdapter","SerialNo",whereClause,"SerialNoView",True)
End Sub
'// Next Sub Added for Serial Numbers
Private Sub GetSerialNoRecord(dvCompany As String, dvPackSlip As
String)
Dim whereClause As String = "Company = '" & dvCompany & "'" & "
and PackSlip = '" & dvPackSlip & "'"
csm.UpdateProcCallDataView
("SerialNoAdapter","SerialNo",whereClause,"SerialNoView",False)
End Sub
Public Sub btnSerialNo_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnSerialNo.Click
'// ** Place Event Handling Code Here **
'Get SerialNo Records
Dim edvReceipt As EpiDataView = CType(oTrans.EpiDataViews
("Receipt"), EpiDataView)
Dim dvCompany as String = edvReceipt.dataView(edvReceipt.Row)
("Company")
Dim dvPackSlip as String = edvReceipt.dataView(edvReceipt.Row)
("PackSlip")
GetSerialNoRecord(dvCompany,dvPackSlip)
End Sub
appear in the data tools. Below is the code that I am using to
populate the grid:
'// Next Sub Added for Serial Numbers
Private Sub InitializeProcCallDataViews()
Dim whereClause As String
whereClause = "Company ='$%' And PackSlip ='$%'"
csm.UpdateProcCallDataView
("SerialNoAdapter","SerialNo",whereClause,"SerialNoView",True)
End Sub
'// Next Sub Added for Serial Numbers
Private Sub GetSerialNoRecord(dvCompany As String, dvPackSlip As
String)
Dim whereClause As String = "Company = '" & dvCompany & "'" & "
and PackSlip = '" & dvPackSlip & "'"
csm.UpdateProcCallDataView
("SerialNoAdapter","SerialNo",whereClause,"SerialNoView",False)
End Sub
Public Sub btnSerialNo_Click(ByVal Sender As Object, ByVal Args
As System.EventArgs) Handles btnSerialNo.Click
'// ** Place Event Handling Code Here **
'Get SerialNo Records
Dim edvReceipt As EpiDataView = CType(oTrans.EpiDataViews
("Receipt"), EpiDataView)
Dim dvCompany as String = edvReceipt.dataView(edvReceipt.Row)
("Company")
Dim dvPackSlip as String = edvReceipt.dataView(edvReceipt.Row)
("PackSlip")
GetSerialNoRecord(dvCompany,dvPackSlip)
End Sub
--- In vantage@yahoogroups.com, "bw2868bond" <bwalker@...> wrote:
>
> Is grid bound to EpiDataView that is shown in the data tools?
>
> --- In vantage@yahoogroups.com, "wastequip_mp" <mpavlick@> wrote:
> >
> > I have added an UltraGrid to the PO Tracker (on the Receipts sheet).
> > I have data going into the grid. However, when you change the po
> number
> > the grid contains the data for the previous po number. I have tried
> to
> > refresh the grid but cannot get it to work. How can this be done?
> >
> > v8.03.407 (Progress)
> >
>