Office中国论坛/Access中国论坛

标题: 求助:截取查询最大值 [打印本页]

---

作者: siaele    时间: 2011-12-20 21:56
标题: 求助:截取查询最大值
先谢谢坛上的热心朋友. 我的问题见附图:
[attach]47741[/attach]


附件在这里.
[attach]47742[/attach]

---

作者: Henry D. Sy    时间: 2011-12-20 22:42

1. Private Sub Command2_Click()
   
2.     Dim rs As New ADODB.Recordset
   
3.     Dim cnn As New ADODB.Connection
   
4.     Dim strWhar As String
   
5.     Dim sSQL As String
   
6.     Dim rsBom As String
   
7. 
   
8.     Set cnn = CurrentProject.Connection
   
9. 
   
10.     If IsNull(Me.BOM) Then
    
11.         MsgBox "请输入BOM"
    
12.         Exit Sub
    
13.     ElseIf Len(Me.BOM) < 4 Then
    
14.         MsgBox "请输入4位以上的BOM"
    
15.         Exit Sub
    
16.     End If
    
17.     strwhat = Left(Me.BOM, 4)
    
18. 
    
19.     sSQL = "select bom from 表1 where left(bom,4)='" & strwhat & "' order by id desc"
    
20.     rs.Open sSQL, cnn, adOpenKeyset, adLockReadOnly
    
21.     If rs.RecordCount <= 0 Then
    
22.         Me.NewBOM = Me.BOM
    
23.     Else
    
24.         rsBom = rs.Fields(0)
    
25.         Select Case Len(rsBom)
    
26.         Case 4
    
27.             Me.NewBOM = rsBom & "-1"
    
28.         Case Is > 4
    
29.             Me.NewBOM = Split(rsBom, "-")(0) & "-" & Val(Split(rsBom, "-")(1)) + 1
    
30.         End Select
    
31.     End If
    
32.     rs.Close
    
33.     Set rs = Nothing
    
34.     Set cnn = Nothing
    
35. End Sub
    

复制代码

---

作者: Henry D. Sy    时间: 2011-12-20 22:58
注意：
表1中的bom大小号要与id的大小排序成正比！

---

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

Powered by Discuz! X3.3