Protected Sub rdSls_ItemsRequested(ByVal sender As Object, ByVal e As RadComboBoxItemsRequestedEventArgs)
Dim conobj As New connection
Dim conn = conobj.makeConnection
fillobj.radFillCombo(rdSls, e, "nSlsID", "sSlsNo", "tsls", " and nOrderStID <> 6", conn)
conn.Close()
End Sub
Protected Sub rdOrd_ItemsRequested(ByVal sender As Object, ByVal e As RadComboBoxItemsRequestedEventArgs)
If rdSls.SelectedValue <> "" Then
Dim conobj As New connection
Dim conn = conobj.makeConnection
fillobj.radFillCombo(rdOrd, e, "nSlsDetID", "sOrdNo", "tslsdet", " and nSlsID=" & Val(rdSls.SelectedValue) & " and sOrdNo <>'' group by sOrdNo", conn)
conn.Close()
End If
End Sub
The .NET Framework is not specific to any one programming language; rather, it includes a library of functions that allows developers to rapidly build applications. Several supported languages include C#, VB.NET, C++ or ASP.NET.
TRUSTED BY
ASKER