伊莉討論區

標題: ACCESS 表單中複數文字方塊 求最大值? [打印本頁]

---

作者: da79317931    時間: 2015-4-8 11:45 PM     標題: ACCESS 表單中複數文字方塊 求最大值?



請問一下各位大大，
小弟在表單中放入1，2，3，4，5(文字方塊)

表單中另有A文字方塊，希望能自動抓出上面5組之最大值，
              B文字方塊，需抓出最小值。

盼各位大大指點迷津，感謝!

---

作者: rr09192084    時間: 2015-4-12 12:57 PM

1.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
   
2.         Dim numstring As String = "1,2,3,4,5"
   
3.         Dim numdata As String() = System.Text.RegularExpressions.Regex.Split(numstring, ",")
   
4.         MessageBox.Show("最大值=" + GetMaxNum(numdata).ToString() + ", 最小值=" + GetMinNum(numdata).ToString())
   
5.     End Sub
   
6. 
   
7.     Private Function GetMaxNum(ByVal sa As String()) As Integer
   
8.         Dim max As Integer
   
9.         If sa.Count > 0 Then
   
10.             max = System.Int32.Parse(sa(0))
    
11.         End If
    
12.         For Each n As String In sa
    
13.             If System.Int32.Parse(n) > max Then
    
14.                 max = System.Int32.Parse(n)
    
15.             End If
    
16.         Next
    
17.         Return max
    
18.     End Function
    
19. 
    
20.     Private Function GetMinNum(ByVal sa As String()) As Integer
    
21.         Dim min As Integer
    
22.         If sa.Count > 0 Then
    
23.             min = System.Int32.Parse(sa(0))
    
24.         End If
    
25.         For Each n As String In sa
    
26.             If System.Int32.Parse(n) < min Then
    
27.                 min = System.Int32.Parse(n)
    
28.             End If
    
29.         Next
    
30.         Return min
    
31.     End Function

複製代碼

看看你是不是要這個呢？

---

歡迎光臨 伊莉討論區 (http://a401.file-static.com/)

Powered by Discuz!