Re: [Programmer-VB]

[Kudo, Shinichi]

coba rubah jd gini :     If KeyCode = 13 Then         Dim ssql As String         ssql = "select [hargadasar] from table1 where "         ssql = ssql & "[pesawat]='" & txtPesawat & "' AND [dari]='" & txtDari & "' AND [tujuan]='" & cboTujuan & "' AND  class = '" & UCase(txtKelas) & "'"                 Set rs = cnn.Execute(ssql)                 If rs.EOF Or IsNull(rs(0)) Then             txtHarga.Text = 0         Else             txtHarga.Text = rs(0)         End If                 'If txtPesawat = rs.Fields("Pesawat") And txtDari = rs.Fields("Dari") And cboTujuan = rs.Fields("Tujuan") And txtKelas = (rs.Fields("Class")) Then         '    txtHarga = rs.Fields("Hargadasar")         'End If     End If End Sub ----- Original Message ----- From: Frangky To: Programmer-VB@yahoogroups.com Sent: Monday, June 19, 2006 1:18 PM Subject: [Programmer-VB] Teman-teman, tolong perhatikan tabel dan kode dibawah ini.   Harga tiket Pesawat dari Denpasar ke Surabaya atau kota lain,  harganya berbeda-beda dilihat jenis Kelas.   Pesawat            Dari                    Tujuan            Kelas             Harga Batavia                DENPASAR        SURABAYA     A                    450000 Batavia                DENPASAR        SURABAYA     B                    500000 Batavia                DENPASAR        SURABAYA     C                    550000 Batavia                DENPASAR        SEMARANG    A                    600000 Batavia                DENPASAR        SEMARANG    B                    650000 Batavia                DENPASAR        SEMARANG    C                    700000     If txtPesawat = rs.Fields("Pesawat") And txtDari = rs.Fields("Dari") And txtTujuan = rs.Fields("Tujuan") And txtKelas = rs.Fields("Class") Then             txtHarga = rs.Fields("Hargadasar")     Kalau pada form,   txtPesawat = Batavia txtDari = DENPASAR txtTujuan = Surabaya txtKelas=A   maka txtHarga = 450000.   Masalahnya kalau pada form:   txtPesawat = Batavia txtDari = DENPASAR txtTujuan = SEMARANG txtKelas=A   txtHarga tidak menampilkan harga tiket dari Denpasar ke SEMARANG. Yang harusnya menampilkan harga 600000 untuk Kelas A.   Untuk lebih jelasnya saya lampirkan file program yang saya buat.   Terimakasih kalau ada yang membantu.     __._,_.___ Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut:     http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke:     [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini:     Yahoo! Messenger: wahanaprogrammer SPONSORED LINKS Programmer Indonesia Basic programming language Computer programming languages Programming languages Java programming language YAHOO! GROUPS LINKS  Visit your group "Programmer-VB" on the web.    To unsubscribe from this group, send an email to:  [EMAIL PROTECTED]    Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service. __,_._,___