kamar ane ga ada posternya gan, tapi cuman ada foto pemandangan gitu hasil motret2 trus ane kasih pigura. lebih bagus gitu lo gan hasil karya sendiri. jadi diliatnya itu beda :D
cb ini gan : Dim dr As DataRow Dim s As String Sub auto() dr = proses.ExecuteQuery("select max(right(id_pinjaman,5)) as Nomor from t_pinjaman").Rows(0) while dr.read If dr("Nomor") is dbnull.value Then s = "12-001" Else if dr("Nomor") < 9 then s = "
