📄 +i
字号:
end if
'=============================
If rds1.Recordset.fields(2)<>0 then
if IsNumeric(rds1.Recordset.fields(2)) = true Then
xlSheet.Cells(k+3,4) = trim(cstr(rds1.Recordset.fields(2)))
else
xlSheet.Cells(k+3,4) = trim(cstr(rds1.Recordset.fields(2)))
End If
end if
'=================================
If rds1.Recordset.fields(3)<>0 then
' msgbox isnull(rds1.Recordset.fields(4))
if IsNumeric(rds1.Recordset.fields(3)) = true Then
xlSheet.Cells(k+3,5) = trim(cstr(rds1.Recordset.fields(3)))
else
xlSheet.Cells(k+3,5) = trim(cstr(rds1.Recordset.fields(3)))
End If
end if
'=============================
If rds1.Recordset.fields(4)<>0 then
' msgbox isnull(rds1.Recordset.fields(5))
if IsNumeric(rds1.Recordset.fields(4)) = true Then
xlSheet.Cells(k+3,6) = trim(cstr(rds1.Recordset.fields(4)))
else
xlSheet.Cells(k+3,6) = trim(cstr(rds1.Recordset.fields(4)))
End If
end if
end if
'============================================
'================
if i=1 then
If isnull(rds1.Recordset.fields(0))=false then
if IsNumeric(rds1.Recordset.fields(0)) = true Then
xlSheet.Cells(k+3,7) = trim(cstr(rds1.Recordset.fields(0)))
else
xlSheet.Cells(k+3,7) = trim(cstr(rds1.Recordset.fields(0)))
End If
end if
'====================
If rds1.Recordset.fields(1)<>0 then
if IsNumeric(rds1.Recordset.fields(1)) = true Then
xlSheet.Cells(k+3,8) = trim(cstr(rds1.Recordset.fields(1)))
else
xlSheet.Cells(k+3,8) = trim(cstr(rds1.Recordset.fields(1)))
End If
end if
'=============================
If rds1.Recordset.fields(2)<>0 then
if IsNumeric(rds1.Recordset.fields(2)) = true Then
xlSheet.Cells(k+3,9) = trim(cstr(rds1.Recordset.fields(2)))
else
xlSheet.Cells(k+3,9) = trim(cstr(rds1.Recordset.fields(2)))
End If
end if
'=================================
If rds1.Recordset.fields(3)<>0 then
' msgbox isnull(rds1.Recordset.fields(4))
if IsNumeric(rds1.Recordset.fields(3)) = true Then
xlSheet.Cells(k+3,10) = trim(cstr(rds1.Recordset.fields(3)))
else
xlSheet.Cells(k+3,10) = trim(cstr(rds1.Recordset.fields(3)))
End If
end if
'=============================
If rds1.Recordset.fields(4)<>0 then
' msgbox isnull(rds1.Recordset.fields(5))
if IsNumeric(rds1.Recordset.fields(4)) = true Then
xlSheet.Cells(k+3,11) = trim(cstr(rds1.Recordset.fields(4)))
else
xlSheet.Cells(k+3,11) = trim(cstr(rds1.Recordset.fields(4)))
End If
end if
end if
'================================================
'================
if i=2 then
If isnull(rds1.Recordset.fields(0))=false then
if IsNumeric(rds1.Recordset.fields(0)) = true Then
xlSheet.Cells(k+3,12) = trim(cstr(rds1.Recordset.fields(0)))
else
xlSheet.Cells(k+3,12) = trim(cstr(rds1.Recordset.fields(0)))
End If
end if
'====================
If rds1.Recordset.fields(1)<>0 then
if IsNumeric(rds1.Recordset.fields(1)) = true Then
xlSheet.Cells(k+3,13) = trim(cstr(rds1.Recordset.fields(1)))
else
xlSheet.Cells(k+3,13) = trim(cstr(rds1.Recordset.fields(1)))
End If
end if
'=============================
If rds1.Recordset.fields(2)<>0 then
if IsNumeric(rds1.Recordset.fields(2)) = true Then
xlSheet.Cells(k+3,14) = trim(cstr(rds1.Recordset.fields(2)))
else
xlSheet.Cells(k+3,14) = trim(cstr(rds1.Recordset.fields(2)))
End If
end if
'=================================
If rds1.Recordset.fields(3)<>0 then
' msgbox isnull(rds1.Recordset.fields(4))
if IsNumeric(rds1.Recordset.fields(3)) = true Then
xlSheet.Cells(k+3,15) = trim(cstr(rds1.Recordset.fields(3)))
else
xlSheet.Cells(k+3,15) = trim(cstr(rds1.Recordset.fields(3)))
End If
end if
'=============================
If rds1.Recordset.fields(4)<>0 then
' msgbox isnull(rds1.Recordset.fields(5))
if IsNumeric(rds1.Recordset.fields(4)) = true Then
xlSheet.Cells(k+3,16) = trim(cstr(rds1.Recordset.fields(4)))
else
xlSheet.Cells(k+3,16) = trim(cstr(rds1.Recordset.fields(4)))
End If
end if
end if
'================
if i=3 then
If isnull(rds1.Recordset.fields(0))=false then
if IsNumeric(rds1.Recordset.fields(0)) = true Then
xlSheet.Cells(k+3,17) = trim(cstr(rds1.Recordset.fields(0)))
else
xlSheet.Cells(k+3,17) = trim(cstr(rds1.Recordset.fields(0)))
End If
end if
'====================
If rds1.Recordset.fields(1)<>0 then
if IsNumeric(rds1.Recordset.fields(1)) = true Then
xlSheet.Cells(k+3,18) = trim(cstr(rds1.Recordset.fields(1)))
else
xlSheet.Cells(k+3,18) = trim(cstr(rds1.Recordset.fields(1)))
End If
end if
'=============================
If rds1.Recordset.fields(2)<>0 then
if IsNumeric(rds1.Recordset.fields(2)) = true Then
xlSheet.Cells(k+3,19) = trim(cstr(rds1.Recordset.fields(2)))
else
xlSheet.Cells(k+3,19) = trim(cstr(rds1.Recordset.fields(2)))
End If
end if
'=================================
If rds1.Recordset.fields(3)<>0 then
' msgbox isnull(rds1.Recordset.fields(4))
if IsNumeric(rds1.Recordset.fields(3)) = true Then
xlSheet.Cells(k+3,20) = trim(cstr(rds1.Recordset.fields(3)))
else
xlSheet.Cells(k+3,20) = trim(cstr(rds1.Recordset.fields(3)))
End If
end if
'=============================
If rds1.Recordset.fields(4)<>0 then
' msgbox isnull(rds1.Recordset.fields(5))
if IsNumeric(rds1.Recordset.fields(4)) = true Then
xlSheet.Cells(k+3,21) = trim(cstr(rds1.Recordset.fields(4)))
else
xlSheet.Cells(k+3,21) = trim(cstr(rds1.Recordset.fields(4)))
End If
end if
end if
'================
k=k+1
rds1.Recordset.movenext
if j=19 then
k=1
end if
next
next
next
wend
end sub
'===========================================================
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
if colindex=0 or colindex=1 or colindex=2 or colindex=3 or colindex=8 or colindex=9 then
msgbox "只能输入和修改请假,旷课,迟到,早退！"
cancel = true
end if
end sub
'=============================================================
sub backing()
if l_yn = true then
if l_update=false then
l_OK=msgbox ("数据已被修改,请先保存数据!",1,"提示窗口")
IF L_ok=1 then
'l_yn=false
exit sub
else
l_yn=false
history.go(-1)
end if
else
history.go(-1)
end if
else
history.go(-1)
end if
end sub
</script>
<SCRIPT language=javascript>
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</SCRIPT></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -