Keskustelu: Ohjelmointikysymykset: VB6: vb:n virheilmoitus

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 = myRS