Question

哪位大神帮忙解释下代码，初学者

Private Sub Form_Load() ShowMSH//展示MSH Dim rs As New ADODB.Recordset//数据库连接 rs.Open "select 销售单号 from 销售 order by 销售单号 desc", Cnn If rs.EOF = True Then Text1(0) = "100001" Else Text1(0) = rs.Fields(0) + 1 End If rs.Close Set rs = Nothing//释放数据库End SubPrivate Sub MSH_DblClick() If MSH.RowSel >= 1 Then For i = 0 To 7 Text1(i) = Trim(MSH.TextMatrix(MSH.RowSel, i)) Next DTPicker1.Value = Trim(MSH.TextMatrix(MSH.RowSel, 8)) Command1(1).Enabled = True Command1(2).Enabled = True End IfEnd SubPrivate Sub ADDXS()On Error GoTo ErrH Dim rs As New ADODB.Recordset Dim intGJZ As Integer rs.Open "select * from 鲜花 where 鲜花编号=" & Trim(Text1(1)) & "", Cnn If rs.EOF = False Then intGJZ = rs.Fields("库存告警值") Else intGJZ = 100 End If rs.Close rs.Open "select * from 库存 where 鲜花编号=" & Trim(Text1(1)) & "", Cnn, adOpenDynamic, adLockOptimistic If rs.EOF = True Then rs.Close Set rs = Nothing MsgBox "库存不足" Exit Sub Else If rs.Fields(1) - intGJZ < CDbl(Text1(4)) Then rs.Close Set rs = Nothing MsgBox "库存不足" Exit SubElse rs.Fields(1) = rs.Fields(1) - CDbl(Text1(4)) End If rs.Update End If rs.Close

Answer 1

Dim rs As New ADODB.Recordset '定义一个记录集
rs.Open "select 销售单号 from 销售 order by 销售单号 desc", Cnn '打开记录集
If rs.EOF = True Then '非记录尾部
Text1(0) = "100001"
Else
Text1(0) = rs.Fields(0) + 1
End If
rs.Close '关闭记录集
Set rs = Nothing '释放记录集对象

End Sub