大家帮看看我的方法为什么执行不了呢？

[dhf131]

Sub ShowMe(SubjectCode)

arr_root_subject = Split(arr_R_Subject, ",", -1, 1)

For i=0 To Ubound(arr_root_subject)-2

strA = arr_root_subject(i)

If Cstr(strA)=Cstr(SubjectCode) Then
document.all("col"&Cstr(strA)).style.display="Block"
document.all("R_"&SubjectCode).style.backgroundcolor = "red"
Else
document.all("col"&Cstr(strA)).style.display="None"
document.all("R_"&SubjectCode).style.backgroundcolor = "write"
End If
Next


End Sub

[gliet1981]

什么错误也不说 鬼知道啊

[zhangjingcheng]

我没看到过这样的

[gegeasp]

VBScript和JavaScript不能混用。

document.all("col"&Cstr(strA)).style.display="Block"
document.all("R_"&SubjectCode).style.backgroundcolor = "red"

[cary2008vip]

同上