Case 3,11

          If SQL(1,K)=11 Then

                    InputStr= "<select style=""width:" & SQL(4,K) & """ name=""" & SQL(2,K) & """fill" & SQL(2,K) &"(this.value)""><option value=''>---请选择---</option>"

          Else

           InputStr="<select style=""width:" & SQL(4,K) & """ name=""" & SQL(2,K) & """>"

          End If

          O_Arr=Split(SQL(6,K),vbcrlf): O_Len=Ubound(O_Arr)

          For N=0 To O_Len

          F_V=Split(O_Arr(N),"|")

          If Ubound(F_V)=1 Then

          O_Value=F_V(0):O_Text=F_V(1)

          Else

          O_Value=F_V(0):O_Text=F_V(0)

          End If         

          If Trim(RSU(SQL(2,K)))=O_Value Then

          InputStr=InputStr & "<option value=""" & O_Value& """ selected>" & O_Text & "</option>"

          Else

          InputStr=InputStr & "<option value=""" & O_Value& """>" & O_Text & "</option>"

          End If

          Next

         InputStr=InputStr & "</select>"

         '县级特殊处理

         If lcase(SQL(2,K))="ks_sarea" Then

          If Not KS.ISNul(RSU("KS_sarea")) Then

           Sarea="<script language=""javascript"">" &vbcrlf

            Sarea=Sarea & "$('#KS_sarea')[0].options[1]=new Option('" & RSU("KS_sarea") & "','" & RSU("KS_sarea") & "');" &Vbcrlf

            Sarea=Sarea & "$('#KS_sarea')[0].options(1).selected=true;" & vbcrlf

            Sarea=Sarea &"</script>" &vbcrlf

               end if

          end if

         '联动菜单

         If SQL(1,K)=11  Then

          Dim JSStr

          InputStr=InputStr &  GetLDMenuStr(RSU,101,SQL,SQL(2,k),JSStr) & "<script type=""text/javascript"">" &vbcrlf & JSStr& vbcrlf &"</script>"

         End If

运行结果提示

下标越界: '[number: 0]'

求解 谢谢