宾馆管理信息系统论文

e
             Exit Sub
        End If
        mrc.Close
     ElseIf gintRmode=2 Then ‘判断是否处于修改状态
             Set mrcc=ExecuteSQL(txtSQL,MsgText)‘设置SQL语句显示当前选择记录
             If mrcc.EOF=False Then
                With mrcc
                     txtItem(0)=.Fields(0)
                      For intCount=1 To 2
                          If Not IsNull(.Fields(intCount+1))Then‘判断内容是否为空
                             txtItem(intCount)=.Fields(intCount+1)
                          End If 

 << 上一页  [21] [22] [23] [24] [25] [26] [27] [28] [29] [30]  ... 下一页  >>