Ok, now I'm able to print the OpDesc based from the OpCode, but I
can't seem to get the CommentText to print. After the following
code:
'// ** Place Event Handling Code Here **
Private Sub txtEpiCustom1_Leave(ByVal Sender As Object, ByVal
Args As System.EventArgs) Handles txtEpiCustom1.Leave
'// ** Place Event Handling Code Here **
If (txtEpiCustom1.Text <> String.Empty) Then
'// Do Search (listLookup)
Dim recordSelected As Boolean
Dim showSearch As Boolean = False
Dim whereClause As String = "OpCode = '" & txtEpiCustom1.Text & "'"
'// Call Search Function
Dim dsComments As DataSet = SearchFunctions.listLookup
(QuoteForm, "OpMasterAdapter", recordSelected, showSearch,
whereClause)
'// check to see if DataSet is not null and that it
'// contains at least 1 DataTable
If (recordSelected = True) Then
'// get a reference to the OrderDtl EpiDataView
'// set the OrderComment field to value returned by search
messagebox.show (dsComments.Tables(0).Rows(0)("OpDesc"))
txtepicustom3.text = (dsComments.Tables(0).Rows(0)("OpDesc"))
'// notify bound control(s) of data change
'//edvSalesOrderDtl.Notify( New EpiNotifyArgs(QuoteForm,
edvSalesOrderDtl.Row, edvSalesOrderDtl.Column))
End If
End If
'// Set Text to Empty String
txtEpiCustom1.Text = String.Empty
End Sub
------------------------------------
When I change "Opdesc" to "CommentText" I get the error message:
Column 'CommentText' does not belong to table OpMasterList
can't seem to get the CommentText to print. After the following
code:
'// ** Place Event Handling Code Here **
Private Sub txtEpiCustom1_Leave(ByVal Sender As Object, ByVal
Args As System.EventArgs) Handles txtEpiCustom1.Leave
'// ** Place Event Handling Code Here **
If (txtEpiCustom1.Text <> String.Empty) Then
'// Do Search (listLookup)
Dim recordSelected As Boolean
Dim showSearch As Boolean = False
Dim whereClause As String = "OpCode = '" & txtEpiCustom1.Text & "'"
'// Call Search Function
Dim dsComments As DataSet = SearchFunctions.listLookup
(QuoteForm, "OpMasterAdapter", recordSelected, showSearch,
whereClause)
'// check to see if DataSet is not null and that it
'// contains at least 1 DataTable
If (recordSelected = True) Then
'// get a reference to the OrderDtl EpiDataView
'// set the OrderComment field to value returned by search
messagebox.show (dsComments.Tables(0).Rows(0)("OpDesc"))
txtepicustom3.text = (dsComments.Tables(0).Rows(0)("OpDesc"))
'// notify bound control(s) of data change
'//edvSalesOrderDtl.Notify( New EpiNotifyArgs(QuoteForm,
edvSalesOrderDtl.Row, edvSalesOrderDtl.Column))
End If
End If
'// Set Text to Empty String
txtEpiCustom1.Text = String.Empty
End Sub
------------------------------------
When I change "Opdesc" to "CommentText" I get the error message:
Column 'CommentText' does not belong to table OpMasterList