SetobjStockItem=Order.item(i)
'*减少库存
CallobjStock.ReduceItem(objStockItem,True)
Nexti
SetobjStock=Nothing
EndSub
(注意：不要使用过多的空行，空行太多影响代码阅读！)
缩进
缩进必须严格执行，变量声明块不缩进，实现块必须保证全部缩进（即不可能有实现块是行首对齐的）。
对于基本的控制结构，必须要有缩进，如：IF、DO、WITH、FOR、OPEN、SELECT块，缩进示例如下：
…..
![]() ![]() ![]() ![]()
![]() ![]() ![]() ![]() If…..Then
…..
EndIf
…..
(注意：在任何地方，不要写ElseIf语句，转换成IF..ELSE..ENDIF结构)
对于过长的语句，必须使用续行，续行位置要有明显意义，示例：
sql=“SELECT[code],[name]FROM[Person]“_
&“WHERE[code]LIKE‘001%’“
函数的参数如果过长，也应该续行，示例：
'**
'增加库存
'@paramProductCode产品编号
'@paramSpec长度规格
'@paramColor颜色
'@paramPatch是否拼圈
'@paramVolumn盘号
'@paramOrdinal子库存顺序号
'@paramLength长度
'@paramIsCheck是否审核入库增加（否则为弃审出库增加)
PublicSubAddDetail(ProductCodeAsString,_
SpecAsDouble,_
ColorAsString,_
PatchAsBoolean,_
VolumnAsString,_
OrdinalAsInteger,_
LengthAsDouble,_
IsCheckAsBoolean)
注释
量
注释以尽可能少为宜，但必须要做到别人能够通过阅读你的代码明白你的意思，让调用者明白函数功能的表达优先级原则如下：
（1）通过函数名称表达
（2）通过代码来表达
（3）通过注释来表达
由上可知，注释是在代码无法充分表达函数功能时才提供，注释同样应该做到准确简洁。
格式
注释的格式遵循vbDocMan的写法，一般情况下使用vbDocMan的注释编辑器进行注释编写，对于显而易见的参数或函数功能可以不加注释。参数注释中参数类型可以不要。
示例：
'**
'读取单据信息
'@paramOrderID单据号
'@paramOrder单据
PrivateFunctionReadOrder(OrderIDAsString,OrderAsNYSaleBackLib.Order)AsBoolean
EndFunction
![]() ![]() ![]() ![]()
![]() ![]() ![]() ![]()
在每个代码模块（窗体、类、模块、控件）的最上面，必须写上代码编写人（使用英文名或中文拼音缩写）、代码创建时间、代码修改时间和修改说明。
示例：
'**
'库存修改类
'@writerpureach
'@createdate2003-11-12
'@revisionpureach2003-11-15
'增加对库存修改时同时影响最后入库日期的功能
什么是好的代码
（1）可读性很强的代码格式，能够区分不同的代码块
上一篇:实现report视图下任何列头的双向排序
下一篇:如何用VB程序来播放WAV文件
|
精品推荐