Koding Aplikasi Penjualan VB .NET Part 11 - Tech Tawar

Berikut ini adalah koding dalam membuat Aplikasi Penjualan Dengan VB .NET Part ke 11. Seperti yang sudah saya infokan di Video Tutorial bahwa jika anda tidak ingin report2 menulis koding memanggil laporan Crystal Report anda bisa Gunakan koding dibawah ini :


If MessageBox.Show("Apakah ingin cetak nota...?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
      AxCrystalReport1.SelectionFormula = "totext({tbl_Jual.NoJual})='" & LBLNoJual.Text & "'"
      AxCrystalReport1.ReportFileName = "notajual.rpt"
      AxCrystalReport1.WindowState = Crystal.WindowStateConstants.crptMaximized
      AxCrystalReport1.RetrieveDataFiles()
      AxCrystalReport1.Action = 1
      Call KondisiAwal()
Else

Jangan lupa dukung kami dengan Subscribe Channel Tech Tawar dan Share ke Media Social
Semoga Bermanfaat
Salam
Mas Tawar

Comment (1)

  1. Assalamualaikum
    Mas saya ada kendala di Axcrystalreport1.Action =1
    Ada pesan exception from HRESULT :0x800A5023
    Ditutorial aplikasi penjualan part11
    Ini kenapa ya mohon bantuannya
    Wassalamualaikum
    Salam dari martien

    ReplyDelete