[Delphindo] Coba lihat kode ini deh.. apa sih yang salah..??

[Hasanul Arifin]

adotBdKontrak ngelink ke adotBankdata berdasarkan field IDCARD
(Master-Detail)

  Even On Button Click;

  DMDB.adotBDKontrak.Sort := 'TGLKontrak DESC';

  DMDB.adotBankData.Edit;  ----------> disini error
  if uppercase(DMDB.adotBankData['STATUSKERJA']) = 'K' then
  begin
    DMDB.adotBDKontrak.First;
    if DMDB.adotBDKontrak['KontrakKe'] = 2 then
    begin
      DMDB.adotBankData['TGL_SELESAI_KONTRAK'] :=
DMDB.adotBDKontrak['TGLSelesai'];
      DMDB.adotBankData['TGL_KONTRAK_2'] := DMDB.adotBDKontrak['TGLMulai'];
      DMDB.adotBDKontrak.Next;
      DMDB.adotBankData['TGL_MULAI_KONTRAK'] :=
DMDB.adotBDKontrak['TGLMulai'];
      DMDB.adotBankData['TGL_KONTRAK_1'] := DMDB.adotBDKontrak['TGLMulai'];
      DMDB.adotBankData['MULAIKERJA'] := DMDB.adotBDKontrak['TGLMulai'];
    end
    else
    begin
      DMDB.adotBankData['TGL_SELESAI_KONTRAK'] :=
DMDB.adotBDKontrak['TGLSelesai'];
      DMDB.adotBankData['TGL_MULAI_KONTRAK'] :=
DMDB.adotBDKontrak['TGLMulai'];
      DMDB.adotBankData['TGL_KONTRAK_1'] := DMDB.adotBDKontrak['TGLMulai'];
      DMDB.adotBankData['MULAIKERJA'] := DMDB.adotBDKontrak['TGLMulai'];
    end;
   DMDB.adotBankData['NO_KONTRAK'] := DMDB.adotBDKontrak['NOKontrak'];
  end
  else
  begin
    DMDB.adotBankData['TGL_MULAI_KONTRAK'] := null;
    DMDB.adotBankData['TGL_SELESAI_KONTRAK'] := null;
    DMDB.adotBankData['TGL_SELESAI_KERJA'] := null;
    DMDB.adotBankData['TGL_KONTRAK_1'] := null;
    DMDB.adotBankData['TGL_KONTRAK_2'] := null;
  end;
  DMDB.adotBankData.Post;

error : type mismatch bla-bla-bla...

kira-kira apa yang salah yah..? saya udah cek berkali-kali alur kerjanya
seharusnya nggak ada error... tapi kenyataannya malah error... waktu saya
trace 1 per 1, error terjadi di instruksi "DMDB.adotBankData.Edit;"..

thanks atas bantuannya

salam

hasanul arifin

------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchMobileComputing.com to access over 500 white papers.
Get instant access at SearchMobileComputing.com Today
http://us.click.yahoo.com/9lAzoD/PLNGAA/witMAA/i7folB/TM
---------------------------------------------------------------------~->

Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED] 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/