Gebe mal einen Teilcode so ein, wie ich es im moment gelöst habe. von den Blöcken sind insgesamt 19 vorhanden.
[code]
dim db as new REALSQLDatabase
dim wert as string
dim rs as RecordSet
dim count as integer
db=my_db.f_connect
if db.error then msgbox db.errormessage
wert=doku.cont_einsatz21.ei_id.Text
rs=db.SQLSelect("select * from einsatz where ei_id=’ “+wert+” ’ ")
count=rs.RecordCount
rs.edit
If mCurrentRecordSet <> Nil Then
mCurrentRecordSet.Edit
mCurrentRecordSet.Update
mDatabase.Commit
End If
// Daten Hundeführer
if doku.cont_einsatz21.check_ei_hf1.value=true then
rs.field ("check_ei_hf1"). Value = doku.cont_einsatz21.check_ei_hf1.value
rs.field ("check_berihf1"). Value = doku.cont_einsatz21.Checkberi_hf1.value
rs.field("ei_hf1").Value=doku.cont_einsatz21.ei_hf1_vname.text
rs.field("ei_hf1_name").Value=doku.cont_einsatz21.ei_hf1_nname.text
rs.field("ei_hf1_km").Value=doku.cont_einsatz21.ei_km_hf1.text
else
rs.field (“check_ei_hf1”).value=false
rs.field (“check_berihf1”). Value =false
rs.field(“ei_hf1_km”).Value= " "
end if
if doku.cont_einsatz21.check_ei_hf2.value=true then
rs.field ("check_ei_hf2"). Value = doku.cont_einsatz21.check_ei_hf2.value
rs.field ("check_berihf2"). Value = doku.cont_einsatz21.Checkberi_hf2.value
rs.field("ei_hf2").Value=doku.cont_einsatz21.ei_hf2_vname.text
rs.field("ei_hf2_name").Value=doku.cont_einsatz21.ei_hf2_nname.text
rs.field("ei_hf2_km").Value=doku.cont_einsatz21.ei_km_hf2.text
else
rs.field (“check_ei_hf2”).value=false
rs.field (“check_berihf2”). Value =false
rs.field(“ei_hf2_km”).Value= " "
end if
if doku.cont_einsatz21.check_ei_hf3.value=true then
rs.field ("check_ei_hf3"). Value = doku.cont_einsatz21.check_ei_hf3.value
rs.field ("check_berihf3"). Value = doku.cont_einsatz21.Checkberi_hf3.value
rs.field("ei_hf3").Value=doku.cont_einsatz21.ei_hf3_vname.text
rs.field("ei_hf3_name").Value=doku.cont_einsatz21.ei_hf3_nname.text
rs.field("ei_hf3_km").Value=doku.cont_einsatz21.ei_km_hf3.text
else
rs.field (“check_ei_hf3”).value=false
rs.field (“check_berihf3”). Value =false
rs.field(“ei_hf3_km”).Value= " "
end if
if doku.cont_einsatz21.check_ei_hf4.value=true then
rs.field ("check_ei_hf4"). Value = doku.cont_einsatz21.check_ei_hf4.value
rs.field ("check_berihf4"). Value = doku.cont_einsatz21.Checkberi_hf4.value
rs.field("ei_hf4").Value=doku.cont_einsatz21.ei_hf4_vname.text
rs.field("ei_hf4_name").Value=doku.cont_einsatz21.ei_hf4_nname.text
rs.field("ei_hf4_km").Value=doku.cont_einsatz21.ei_km_hf4.text
else
rs.field (“check_ei_hf4”).value=false
rs.field (“check_berihf4”). Value =false
rs.field(“ei_hf4_km”).Value= " "
end if
.
.
.
.
.
rs.Update
if db.error then msgbox db.errormessage
db.Commit
rs.Close[/code]