MEMBUAT NAMA KOLOM DARI TABEL MSHFLEXGRID

SAYA  MAU MEMBUAT NAMA  DARI TABEL MSHFLEXGRID

LANGKAHNYA ADALAH

1.        TAMBAHKAN MSHFLEXGRID DI FORM ATUR SESUAI DENGAN BESARNYA

1.        ATUR PROPERTI WINDOWNYA

·         NAME = FFF(TERSERAH APALAH NAMANYA)

·         ROWS = 1 ( SUPAYA BILA ADA RECORD BARU DI AKAN MEMULAI PADA ROW KE 2)

2.       SELANJUTNYA KITA BUAT CODENYA

Sub NAMA_TABEL()

With FFF

    .Cols = 8

    .ColWidth(0) = 0

    .ColWidth(1) = 2000

    .ColWidth(2) = 1400

    .ColWidth(3) = 4000

    .ColWidth(4) = 1200

    .ColWidth(5) = 1200

    .ColWidth(6) = 1500

    .ColWidth(7) = 1500

    .TextMatrix(0, 1) = "NO TRANSAKSI"

    .TextMatrix(0, 2) = "TANGGAL"

    .TextMatrix(0, 3) = "NAMA BARANG"

    .TextMatrix(0, 4) = "SATUAN"

    .TextMatrix(0, 5) = "JUMLAH"

    .TextMatrix(0, 6) = "HARGA BELI"

    .TextMatrix(0, 7) = "HARGA JUAL"

 

End With

End Sub

CATATAN:

·         TEXTMATRIX ADALAH SAMA ARTINYA SEL DI MICROSOFT EXCELL YANG  ARTINYA TEMPAT BERTEMUNYA ANTARA KOLOM DAN BARIS)

·         (0,1) ARTINYA ADALAH BARIS 0 KOLOM 1

 

1.        JANGAN LUPA LANGKAH TERAKHIR ADALAH MEMANGGIL NAMA_TABEL PADA SAAT FORM LOAD

Private Sub Form_Load()

NAMA_TABEL

End Sub

KETIKA DI JALANKAN MAKA HASILNYA ADALAH.....