Reken-rekan VBers, semoga dapat membantu saya..
Saya pake vb6, menggunakan Datagrid dengan kontrol Adodc untuk tampilan grid. Masalahnya jika saya ingin mengambil data dari grid ke Textbox dengan kode, mis :
txtData.Text = gridData.Columns(2).Value
terjadi error "type missmatch", jika data pada grid pada kolom ke 3 kosong. Saya sudah coba dengan kode:
If IsNull(gridData.Columns(2).Value) Then ..., atau
If Len(gridData.Columns(2).Value) = 0 Then.., atau
If Len(Str(gridData.Columns(2).Value)) = 0 Then..
selalu mengeluarkan kesalahan yang sama, saya mendapat kesan sepertinya jika isinya kosong kode 'gridData.Columns(2).Value)' cuma akan menghasilkan Error.
Untuk solusi sementara, saya pakai kode:
txtData.Text=""
On Error Resume Next
txtData.Text = gridData.Columns(2).Value
Tapi saya kira ini tidak elegan, ada yang lebih
baik engga ? Trm Kasih..
Brings words and photos together (easily) with
PhotoMail - it's free and works with Yahoo! Mail.
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
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.
