问个菜一点的代码问题

boy1

Me.总租金 = Nz(Me.租金) * Nz(Me.月数) + Nz(Me.日租金) * Nz(Me.天数))

出错，但不知错在哪里。如果Me.总租金 = Nz(Me.租金) * Nz(Me.月数) ，就正常。请给讲讲，写代码的规矩。谢谢

ACMAIN_CHM

Me.总租金 = Nz(Me.租金) * Nz(Me.月数) + Nz(Me.日租金) * Nz(Me.天数))

貌似多了一个括号。 另外正规的写法是
Me.总租金.value = Nz(Me.租金.value) * Nz(Me.月数.value) + Nz(Me.日租金.value) * Nz(Me.天数.value)
把属性写明确，而不是利用VB的控件的默认属性。

ACMAIN_CHM

写代码的规矩


1。 在模块级别中使用，强制显式声明模块中的所有变量。
语法
Option Explicit 说明
如果使用，Option Explicit 语句必须写在模块的所有过程之前。
如果模块中使用了 Option Explicit，则必须使用 Dim、Private、Public、ReDim 或 Static 语句来显式声明所有的变量。如果使用了未声明的变量名在编译时间会出现错误。
如果没有使用 Option Explicit 语句，除非使用 Deftype 语句指定了缺省类型，否则所有未声明的变量都是 Variant 类型的。
注意 使用 Option Explicit 可以避免在键入已有变量时出错，在变量的范围不是很清楚的代码中使用该语句可以避免混乱。

2。 格式化代码

应尽可能多地保留屏幕空间，但仍允许用代码格式反映逻辑结构和嵌套。以下为几点提示：

• 标准嵌套块应缩进 4 个空格。
• 过程的概述注释应缩进 1 个空格。
• 概述注释后的最高层语句应缩进 4 个空格，每一层嵌套块再缩进 4 个空格。例如：

1. 
   
2. 
   
3. '*********************************************************
   
4. ' 目的：    返回指定用户在 UserList 数组中第一次出现的位置。
   
5. ' 输入：    strUserList():   所查找的用户列表。
   
6. '           strTargetUser:   要查找的用户名。
   
7. ' 返回：    strTargetUser 在 strUserList 数组中第一次出现时的索引。
   
8. '           如果目标用户未找到，返回 -1。
   
9. '*********************************************************
   
10. Function intFindUser (strUserList(), strTargetUser)
    
11.      Dim i                     ' 循环计数器。
    
12.      Dim blnFound        ' 发现目标的标记。
    
13.      intFindUser = -1
    
14.      i = 0                     ' 初始化循环计数器。
    
15.      Do While i <= Ubound(strUserList) and Not blnFound
    
16.          If strUserList(i) = strTargetUser Then
    
17.              blnFound = True   ' 标记设为 True。
    
18.              intFindUser = i   ' 返回值设为循环计数器。
    
19.          End If
    
20.          i = i + 1             ' 循环计数器加 1。
    
21.      Loop
    
22. End Function

复制代码

boy1

多谢指教.[:32]

wt980532

一切向钱看！！！！！

zjsmf933

学了一手！