hei,
Kääntäessä projektiani saan tälläisen virheilmoituksen:
Item cannot be found in the collection corresponding to the
requested name or ordinal. Ja pätkä koodiani on:
Dim WithEvents adoPrimaryRS As Recordset
Dim myRS As Recordset
Dim mbChangedByCode As Boolean
Dim mvBookMark As Variant
Dim mbEditFlag As Boolean
Dim mbAddNewFlag As Boolean
Dim mbDataChanged As Boolean
Private Sub Form_Load()
'Dim db As Connection
'Set db = New Connection
'db.CursorLocation = adUseClient
'db.Open "PROVIDER=Microsoft.Jet.OLEDB.3.51;Data Source=C:\Program Files\Microsoft Visual Studio\VB98\hr5.mdb;"
'Set adoPrimaryRS = New Recordset
'adoPrimaryRS.Open "select beginDate,done,endDate,milestone,numSubTasks,pjojectid,projectDesc,projectName,TeamName from projects", db, adOpenStatic, adLockOptimistic
'Command-objektien asetukset
DataEnvironment1.comProjects
DataEnvironment1.comToDo
'Asetetaan lomakkeen käyttämä recordset
Set adoPrimaryRS = DataEnvironment1.rscomProjects
'Luodaan Recordset-objekti *****virhe ilmoitus tähän seuraavaan lauseeseen--->
Set myRS = DataEnvironment1.rscomProjects.Fields("comToDoView").Value
'*********
'Asetetaan taulukko-ohjaimen ominaisuudet
flxToDoItems.FixedCols = 0
flxToDoItems.SelectionMode = flexSelectionByRow
flxToDoItems.FocusRect = flexFocusNone
flxToDoItems.ColWidth(0) = 200
flxToDoItems.ColWidth(1) = 1000
flxToDoItems.ColWidth(2) = 3000
flxToDoItems.ScrollBars = flexScrollBarVertical
'Liitetään taulukko ToDo-tauluun
Set flxToDoItems.DataSource = myRSMillä rivillä virhe tulee?
Se lukee tossa koodissa, mutta on varmaan hiukan epäselvästi
siellä. Kohta:
Set myRS = DataEnvironment1.rscomProjects.Field(
Aihe on jo aika vanha, joten et voi enää vastata siihen.