Selamat datang di ForSa! Forum diskusi seputar sains, teknologi dan pendidikan Indonesia.

Selamat datang, Pengunjung. Silahkan masuk atau mendaftar. Apakah anda lupa aktivasi email?

Desember 07, 2021, 07:23:30 AM

Masuk dengan nama pengguna, kata sandi dan lama sesi

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139668
  • Total Topik: 10408
  • Online Today: 54
  • Online Ever: 441
  • (Desember 18, 2011, 12:48:51 AM)
Pengguna Online
Users: 0
Guests: 25
Total: 25

Ikuti ForSa

ForSa on FB ForSa on Twitter

Penulis Topik: Expression Expected  (Dibaca 2568 kali)

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Offline Paulima Samosir

  • Siswa Baru
  • *
  • Tulisan: 2
  • IQ: 2
Expression Expected
« pada: Februari 05, 2010, 01:28:38 AM »
saya ingin menjalanjan program di bawah ini dengan menggunakan vb.net 2003 tetapi ada error, Expression Expected...   

Private Sub DisableControls(ByVal dgrRevise As Control)
        Dim ddlApprove As New DropDownList
        Dim l As Literal = New Literal
        Dim name As String = String.Empty
        Dim i As Integer
        For i = 0 To i < dgrRevise.Controls.Count
            --If (dgrRevise.Controls(i).GetType() == TypeOf (ddlApprove) Is DropDownList)) Then--> error disini
                l.Text = CType(dgrRevise.Controls(0), TextBox).Text
                dgrRevise.Controls.Remove(dgrRevise.Controls(i))
                dgrRevise.Controls.AddAt(i, l)
                If dgrRevise.Controls(i).HasControls() Then
                    DisableControls(dgrRevise.Controls(i))
                End If
            End If
        Next

    End Sub

saya bingung, tand errornya ada di == tetapi jika dihilangkan salah satu malah jadi error semuanya..  :-[
mohon bantuanny y, ini sangat genting....!!!!!!
tq..

Offline idiotique_hebb

  • Dosen
  • ****
  • Tulisan: 170
  • IQ: 10
  • Gender: Pria
  • call me hebb
Re: Expression Expected
« Jawab #1 pada: Februari 06, 2010, 11:17:10 AM »
maaf saya masih newbie di bahasa VB.Net, tapi kalo diliat dari logika program diatas, anda menggunakan perintah if untuk meng-"compare" antara control dari parameter drgRevise yang ke-i dengan variabel ddlApprove yang bertipe DropDownList. Benarkah?

hmm.. coba pake ini :
Private Sub DisableControls(ByVal dgrRevise As Control)
        Dim ddlApprove As DropDownList = New DropDownList
        Dim l As Literal = New Literal
        ...
        ...
        If TypeOf dgrRevise.Controls(i) Is DropDownList Then
        ...
        ...
        Next

End Sub
Lagi belajar Objective C / GNUStep / Cocoa API
Kroper for Mac : download here

 

Related Topics

  Subyek / Dimulai oleh Jawaban Tulisan terakhir
1 Jawaban
16481 Dilihat
Tulisan terakhir Desember 21, 2017, 01:20:12 AM
oleh The Houw Liong