[分享]明细栏处理
<font size="3"><font face="宋体, MS="MS"Song"> <?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" /><v:stroke joinstyle="miter"></v:stroke></font></font><v:formulas><v:f eqn="if lineDrawn="lineDrawn"pixelLineWidth="pixelLineWidth"0"></v:f><v:f eqn="sum @0 1="1"0"></v:f><v:f eqn="sum 0="0"0="0"@1"></v:f><v:f eqn="prod @2 1="1"2"></v:f><v:f eqn="prod @3 21600="21600"pixelWidth"></v:f><v:f eqn="prod @3 21600="21600"pixelHeight"></v:f><v:f eqn="sum @0 0="0"1"></v:f><v:f eqn="prod @6 1="1"2"></v:f><v:f eqn="prod @7 21600="21600"pixelWidth"></v:f><v:f eqn="sum @8 21600="21600"0"></v:f><v:f eqn="prod @7 21600="21600"pixelHeight"></v:f><v:f eqn="sum @10 21600="21600"0"></v:f></v:formulas><v:path o:c gradientshapeok="t" o:extrusi></v:path><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:lock aspectratio="t" v:ext="edit"></o:lock><br style="mso-ignore: vglayout" clear="all"/> <p class="MsoNormal">说明:此程序全用listp编写,有40多个子程序,历经数月,此为终极版,比较复杂，要详读</p>
<p class="MsoNormal" style="MARGIN-LEFT: 21pt; TEXT-INDENT: -21pt; mso-list: l0="l0"level1="level1"lfo1; tab-stops: list="list"21.0pt"><span style="mso-list: Ignore">1.<span style="FONT: 7pt="7pt"'Times New="New"Roman'"> </span></span>本小程序的功能(输入mm时,只执行下面的第ii条)</p>
<p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -63pt; mso-list: l0="l0"level3="level3"lfo1; tab-stops: list="list"63.0pt; mso-text-indent-alt: -21.0pt"><span style="mso-list: Ignore"><span style="FONT: 7pt="7pt"'Times New="New"Roman'"> i. </span></span>总重=单重x数量</p>
<p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -63pt; mso-list: l0="l0"level3="level3"lfo1; tab-stops: list="list"63.0pt; mso-text-indent-alt: -21.0pt"><span style="mso-list: Ignore"><span style="FONT: 7pt="7pt"'Times New="New"Roman'"> ii. </span></span>名称栏遇有”钢板”筋板”圆钢”钢管”,不改变内容,只计算出重量</p>
<p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -63pt; mso-list: l0="l0"level3="level3"lfo1; tab-stops: list="list"63.0pt; mso-text-indent-alt: -21.0pt"><span style="mso-list: Ignore"><span style="FONT: 7pt="7pt"'Times New="New"Roman'"> iii. </span></span>增加序号一次完成</p>
<p class="MsoNormal" style="MARGIN-LEFT: 63pt; TEXT-INDENT: -63pt; mso-list: l0="l0"level3="level3"lfo1; tab-stops: list="list"63.0pt; mso-text-indent-alt: -21.0pt"><span style="mso-list: Ignore"><span style="FONT: 7pt="7pt"'Times New="New"Roman'"> iv. </span></span>计算总重<o:wrapblock><v:shapetype id="_x0000_t75" stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" o:preferrelative="t" o:spt="75" coordsize="21600,21600"> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn="lineDrawn"pixelLineWidth="pixelLineWidth"0"></v:f><v:f eqn="sum @0 1="1"0"></v:f><v:f eqn="sum 0="0"0="0"@1"></v:f><v:f eqn="prod @2 1="1"2"></v:f><v:f eqn="prod @3 21600="21600"pixelWidth"></v:f><v:f eqn="prod @3 21600="21600"pixelHeight"></v:f><v:f eqn="sum @0 0="0"1"></v:f><v:f eqn="prod @6 1="1"2"></v:f><v:f eqn="prod @7 21600="21600"pixelWidth"></v:f><v:f eqn="sum @8 21600="21600"0"></v:f><v:f eqn="prod @7 21600="21600"pixelHeight"></v:f><v:f eqn="sum @10 21600="21600"0"></v:f></v:formulas><v:path o:c gradientshapeok="t" o:extrusi></v:path><o:lock aspectratio="t" v:ext="edit"></o:lock></v:shapetype><v:shape id="_x0000_s1026" style="MARGIN-TOP: 20.3pt; Z-INDEX: 1; LEFT: 0px; MARGIN-LEFT: 63pt; WIDTH: 384pt; POSITION: absolute; HEIGHT: 4in; TEXT-ALIGN: left; mso-position-horizontal-relative: text; mso-position-vertical-relative: text" type="#_x0000_t75"><v:imagedata o:title="功能图示" src="file:///D:\temp\msohtml1\01\clip_image001.png"></v:imagedata><?xml:namespace prefix = w ns = "urn:schemas-microsoft-com:office:word" /><w:wrap type="topAndBottom"></w:wrap></v:shape><v:shape id="_x0000_s1027" style="MARGIN-TOP: 312.8pt; Z-INDEX: 2; LEFT: 0px; MARGIN-LEFT: 63pt; WIDTH: 384pt; POSITION: absolute; HEIGHT: 4in; TEXT-ALIGN: left; mso-position-horizontal-relative: text; mso-position-vertical-relative: text" type="#_x0000_t75"><v:imagedata o:title="程序界面设计" src="file:///D:\temp\msohtml1\01\clip_image002.png"></v:imagedata><w:wrap type="topAndBottom"></w:wrap></v:shape></o:wrapblock><br style="mso-ignore: vglayout" clear="all"/></p> <p>不错，支持下！</p> 谢谢黄大师的经典程序，俺也模仿着要做一个 谢谢黄大师辛苦付出！ 谢谢黄大师辛苦付出！ 谢谢黄大师辛苦付出！
好好学习一下！！！
谢谢黄大师辛苦付出 谢谢黄老师辛苦付出！
页:
[1]