Hello,
my varaible 'dsBankList' is a DataSet, there is also a 'ComboBox' for which DataTable from 'dsBankList' is a source. I am filling up the DataSet using a 'GetList' method from 'VendBankSearchAdapter' but it gives me all banks for all vendors instead of giving me a list of banks filtered by 'whereClauseBank'. 'whereClauseBank' contains a Company name and One Vendor number.
I am pasting below my code. Please take a look at it and if you know what's wrong please let me know.
Private Sub Banki()
ViewDostawca = CType(oTrans.EpiDataViews("APInvHed"), EpiDataView)
If (ViewDostawca.Row > -1) Then
DostawcaNum = ViewDostawca.dataView(ViewDostawca.Row)("VendorNum")
Dim adaVendBankSearchAdapter As VendBankSearchAdapter = New VendBankSearchAdapter(APInvoiceForm)
Dim whereClauseBank = "Company = 'ENERGO' AND VendorNum = '" & DostawcaNum.ToString() & "'"
Dim MorePages as Boolean
Dim htGdzie as Hashtable = New Hashtable()
Dim opts As SearchOptions = New SearchOptions(SearchMode.AutoSearch)
htGdzie.Add("VendBank",whereClauseBank)
adaVendBankSearchAdapter.BOConnect()
opts = SearchOptions.CreateRuntimeSearch(htGdzie,DataSetMode.RowsDataSet)
dsBankList = adaVendBankSearchAdapter.GetList(opts,MorePages)
scbNumerKonta.DataSource = dsBankList.Tables("VendBankList")
adaVendBankSearchAdapter.Dispose()
End If
End Sub
my varaible 'dsBankList' is a DataSet, there is also a 'ComboBox' for which DataTable from 'dsBankList' is a source. I am filling up the DataSet using a 'GetList' method from 'VendBankSearchAdapter' but it gives me all banks for all vendors instead of giving me a list of banks filtered by 'whereClauseBank'. 'whereClauseBank' contains a Company name and One Vendor number.
I am pasting below my code. Please take a look at it and if you know what's wrong please let me know.
Private Sub Banki()
ViewDostawca = CType(oTrans.EpiDataViews("APInvHed"), EpiDataView)
If (ViewDostawca.Row > -1) Then
DostawcaNum = ViewDostawca.dataView(ViewDostawca.Row)("VendorNum")
Dim adaVendBankSearchAdapter As VendBankSearchAdapter = New VendBankSearchAdapter(APInvoiceForm)
Dim whereClauseBank = "Company = 'ENERGO' AND VendorNum = '" & DostawcaNum.ToString() & "'"
Dim MorePages as Boolean
Dim htGdzie as Hashtable = New Hashtable()
Dim opts As SearchOptions = New SearchOptions(SearchMode.AutoSearch)
htGdzie.Add("VendBank",whereClauseBank)
adaVendBankSearchAdapter.BOConnect()
opts = SearchOptions.CreateRuntimeSearch(htGdzie,DataSetMode.RowsDataSet)
dsBankList = adaVendBankSearchAdapter.GetList(opts,MorePages)
scbNumerKonta.DataSource = dsBankList.Tables("VendBankList")
adaVendBankSearchAdapter.Dispose()
End If
End Sub