Learn the fundamentals of Angular 2, a JavaScript framework for developing dynamic single page applications.
Public Function SearchAny(ByVal UserInput As String) As DataSet
Dim resultDs As New DataSet
Dim dtNMI As New DataTable
Dim dtAccount As New DataTable
Dim dtInvoice As New DataTable
Dim dtProducts As New DataTable
dtNMI.TableName = "NMI"
dtAccount.TableName = "Account"
dtInvoice.TableName = "Invoice"
dtProducts.TableName = "Products"
dtNMI = SearchNMIAny(UserInput)
dtAccount = SearchAccountAny(UserInput)
dtInvoice = SearchInvoiceAny(UserInput)
dtProducts = SearchProductAny(UserInput)
resultDs.Tables.Add(dtNMI)
resultDs.Tables.Add(dtAccount)
resultDs.Tables.Add(dtInvoice)
resultDs.Tables.Add(dtProducts)
Return resultDs
End Function
one of the function
Public Function SearchNMIAny(ByVal UserInput As String) As DataTable
Dim resultTable As New DataTable
Dim result As New DataSet
Dim sqlQuery As String
Dim sb As New StringBuilder
sb.AppendFormat("SELECT TOP 50 NMI, NmiID FROM tbnmi WHERE nmi LIKE '{0}%' ", UserInput)
sqlQuery = sb.ToString
result = DB.GetDataSetFromSQL(sqlQuery)
resultTable = result.Tables(0)
Return resultTable
End Function
Do more with
// create a clone of the table.
var cloneTable = new DataTable();
cloneTable = dT.Clone();
foreach (DataRow row in dT.Rows)
cloneTable.ImportRow(row);
'vb.net
' create a clone of the table.
Dim cloneTable = New DataTable()
cloneTable = dT.Clone()
For Each row As DataRow In dT.Rows
cloneTable.ImportRow(row)
Next
resultDs.Tables.Add(dtNMI.Copy())
resultDs.Tables.Add(dtAccount.Copy())
resultDs.Tables.Add(dtInvoice.Copy())
resultDs.Tables.Add(dtProducts.Copy())
Premium Content
You need an Expert Office subscription to comment.Start Free Trial