<script id="clientEventHandlersVBS" language="vbscript" type="text/vbscript">
Sub DCellWeb1_SelChanged(ByVal col1, ByVal row1, ByVal col2, ByVal row2)
form1.DCellWeb1.CalculateSheet(form1.DCellWeb1.GetCurSheet())
End Sub
Sub DCellWeb1_SheetChanged(ByVal oldsheet, ByVal newsheet)
setRowNum
form1.DCellWeb1.CalculateSheet(form1.DCellWeb1.GetCurSheet())
End Sub
Sub DCellWeb1_DropCellSelected(ByVal col, ByVal row)
Dim sDropList
Dim sDropValue
Dim iCurSheet
iCurSheet=form1.DCellWeb1.GetCurSheet()
sDropValue=form1.DCellWeb1.GetCellString(col,row,iCurSheet)
if iCurSheet=1 then
if col=4 and row=9 then
if sDropValue="事业单位" then
sDropList="机构"+vbCrLf+"院校"+vbCrLf+"医疗卫生机构"+vbCrLf+"事业单位"+vbCrLf
elseif sDropValue="企业" then
sDropList="国企"+vbCrLf+"股份制"+vbCrLf+"合资企业"+vbCrLf+"民营企业"+vbCrLf+"外资企业"+vbCrLf
elseif sDropValue="其他机构" then
sDropList="团体"+vbCrLf+"中介机构"+vbCrLf+"其他"+vbCrLf
end if
form1.DCellWeb1.SetCellString 7,9,iCurSheet,""
form1.DCellWeb1.SetDroplistCell 7,9,iCurSheet,sDropList,0
end if
end if
form1.DCellWeb1.CalculateSheet(iCurSheet)
End Sub
Function getNum
dim sNum
sNum = inputbox("请输入需要新增的表行总数(小于100的正整数):","增加表行")
getNum = sNum
end Function
</script>
Sub DCellWeb1_EditFinish(text, approve)
Dim value
value = text
if IsNumeric(value) then
if ((value*10000) <> 0 and (value<100000000)) then
Dim intLocalConst
intLocalConst=0.5000001
if len(text) <> 0 then
if text<0 then
intLocalConst=-0.5000000
end if
text=CStr(fix(text*100+intLocalConst)/100)
approve=1
end if
end if
end if
End Sub