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

Welcome to Forum Sains Indonesia. Please login or sign up.

Maret 28, 2024, 07:45:07 PM

Login with username, password and session length

Topik Baru

Artikel Sains

Anggota
Stats
  • Total Tulisan: 139,653
  • Total Topik: 10,405
  • Online today: 116
  • Online ever: 1,582
  • (Desember 22, 2022, 06:39:12 AM)
Pengguna Online
Users: 0
Guests: 79
Total: 79

Aku Cinta ForSa

ForSa on FB ForSa on Twitter

Expression Expected

Dimulai oleh Paulima Samosir, Februari 04, 2010, 10:28:38 AM

« sebelumnya - berikutnya »

0 Anggota dan 1 Pengunjung sedang melihat topik ini.

Paulima Samosir

saya ingin menjalanjan program di bawah ini dengan menggunakan [pranala luar disembunyikan, sila masuk atau daftar.] 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..

idiotique_hebb

maaf saya masih newbie di bahasa [pranala luar disembunyikan, sila masuk atau daftar.], 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 : [pranala luar disembunyikan, sila masuk atau daftar.]