2011年9月9日
Excel单元格设成只读
摘要： Sub A1单元格设成只读() Cells.Select Selection.Locked = False Selection.FormulaHidden = False Range("A1").Select ActiveCell.FormulaR1C1 = "5" Range("A1").Select Selection.Locked = True Selection.FormulaHidden = False ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Sce 阅读全文
posted @ 2011-09-09 15:10 郭振斌 阅读(1204) 评论(0) 推荐(0)
PLSQL 实现split
摘要： PLSQL 实现split： FUNCTIONGet_Field_Value(in_strINVARCHAR2,findstrINVARCHAR2,fieldININTEGER)RETURNVARCHAR2AStmp_msgVARCHAR2(20);--取字段值，fieldstartfrom0startidxINTEGER;endidxINTEGER;BEGINstartidx:=1;endidx:=1;FORiIN1..fieldLOOP--INSTR(in_string,'|',tmp_pos);--substr(in_string,tmp_pos,tmp_pos1-tmp 阅读全文
posted @ 2011-09-09 09:32 郭振斌 阅读(3386) 评论(0) 推荐(0)