This is what I have now...still does not work. I'm so close I can taste it. :-)
Imports System.Data
Imports OakLeaf.MM.Main.Business
Public Class FobTableAll
Inherits ABusinessObject
Public Sub New()
Me.TableName = "FobTable"
Me.PrimaryKey = "fob_pk"
End Sub
Protected Overrides Function CreateDataSet() As OakLeaf.MM.Main.Data.mmDataSet
Return New FobTableDataset
End Function
Public Function GetFOBTableAll(ByVal compno As String) As DataSet
Return Me.GetDataSet("SELECT FobTable.fob_pk,FobTable.fob_codeck,FobTable.fob_descrip FROM FobTable WHERE compno = @compno", Me.CreateParameter("@compno", compno))
End Function
End Class
Public Sub New()
MyBase.New()
Me.oFobTableAll = CType(Me.RegisterPrimaryBizObj(New FobTableAll), FobTableAll)
'This call is required by the Windows Form Designer.
InitializeComponent()
'Add any initialization after the InitializeComponent() call
'Me.dsFobTableAll = Me.oFobTableAll.GetFOBTableAll("01")
Me.oFobTableAll.GetFOBTableAll("01")
Richard DeZeeuw
DeZeeuw Software Inc.