problem ved kun et match i database

den er ikke forstået...!

jeg henter nogle rækker fra database,  eks 10 rækker, i hver række er der en checkbox med samme navn 10 stks chkpalle.

jeg kommer så nogle parameter på checkboxene som jeg vil trække ud ved hjælp af for each i in frame.chkpalle.

men hvis der kun er en checkbox kan man ikke bruge for each. derfor vil jeg gerne hvis der kun er en checkbox gå uden om for each.

håber det er mere forståeligt.

Her er functionen hvor problemet kommer hvis der kun er en checkbox(chkSelectDocument), hvis der kun er en checkbox kan jeg altså ikke bruge for each, så der skal teste på hvor mange checkboxe der er. Hvis der kun er en skal der ikke bruges for each.

Function Upload(DocumentType, lngProjectID, FileDate)
  dim i   
  dim a
  dim b

  i=\"\"
  a=\"\"
  b=1
  strCheckDoc=\"\"
   
    for each i in frmProjektStyregruppe.chkSelectDocument
      if i.checked then
        strCheckDoc=i.value           
        strList = split (strCheckDoc,\",\")
        for a = lbound(strList) to ubound(strList)   
          if b = 1  then
            lngdocumentId = strList(a)                   
            b = 2
          else if b = 2 then
            DocumentName = strList(a)
            b = 1
          end if
          end if   
      next
       
      ctlFileControl1.SendFile  lngDocumentID, lngProjectID, DocumentName, DocumentType, FileDate
      end if
    next
   
End Function

har løst problemet.