Office中国论坛/Access中国论坛

标题: 麻烦帮我解释一下这段程序 [打印本页]

作者: wangjianxiao 时间: 2012-4-12 15:52
标题: 麻烦帮我解释一下这段程序
麻烦那位高手能帮我解释这段程序：
Private Sub Form_Current()

Dim rst As Recordset
Set rst = CurrentDb().OpenRecordset("select * from anquan")
rst.FindFirst "ID=" & Me.编号
rst.MoveNext
If Left(rst!编号, 1) = "a" Then
Text6 = rst!编号
Text9 = ""
If InStr(1, rst!编号, "a") > 1 Then
      Text7 = ""
      Text8 = ""
Else
      rst.MoveNext
      Text7 = rst!编号
      rst.MoveNext
      Text8 = rst!编号
End If
Else

End If
End Sub

作者: williamwangc 时间: 2012-4-12 16:38
本帖最后由 williamwangc 于 2012-4-12 16:42 编辑

Dim rst As Recordset
'定义rst为记录集
Set rst = CurrentDb().OpenRecordset("select * from anquan")
'设定rst＝当前数据库.开放数据集(该集合为从名为anquan的表或者查询选取所有字段)
rst.FindFirst "ID=" & Me.编号
'rst数据集.寻找id字段＝me.编号的值
rst.MoveNext
’转到前面找到的数据的下一个数据
If Left(rst!编号, 1) = "a" Then
'如果该数据的t编号字段中左边第一个字符为a，那么
Text6 = rst!编号
’把rst的编号字段的值赋值给text6的控件(因为text没有me，可能不是控件，下同)
Text9 = ""
'text9变为空白
If InStr(1, rst!编号, "a") > 1 Then
'如果rst的编号字段中a不在首位，那么
      Text7 = ""
'text7变为空白
      Text8 = ""
‘text8变为空白
Else
'否则
      rst.MoveNext
’rst.转到下一个
      Text7 = rst!编号
rst编号字段的值赋值给text7
rst.MoveNext
'转到下一个
      Text8 = rst!编号
'rst编号字段赋值给text8
End If
'结束如果
Else
'否则
End If
'结束如果
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)