宾馆管理信息系统论文

; Exit Sub
       End if
       Next intCount ‘判断输入内容是否为数字
       For intCount=2 To 4
           If Not IsNumeric(Trim(txtItem(intCount))) Then
                 Select Case intCount
                        Case 2
                            sMeg=”房间面积”
                        Case 3
                            sMeg=”床位数量”
                        Case 4
                            sMeg=”床位单价”
          &nbs

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ... 下一页  >>