廣告廣告
  加入我的最愛 設為首頁 風格修改
首頁 首尾
 手機版   訂閱   地圖  簡體 
您是第 3167 個閱讀者
 
發表文章 發表投票 回覆文章
  可列印版   加為IE收藏   收藏主題   上一主題 | 下一主題   
九九六二
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x5
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片
推文 x0
[Basic][求助] 條件式加總問題 (已解決)
請問vb的條件式加總要怎麼寫呢?

例如
    A     B     C
1   111     AA     6 ..

訪客只能看到部份內容,免費 加入會員 或由臉書 Google 可以看到全部內容



[ 此文章被九九六二在2010-01-17 16:39重新編輯 ]


獻花 x0 回到頂端 [樓 主] From:台灣中華電信 | Posted:2010-01-14 21:46 |
x09818
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x3 鮮花 x23
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

不懂~能不能說詳細一點~


獻花 x0 回到頂端 [1 樓] From:臺灣中華電信 | Posted:2010-01-15 17:30 |
九九六二
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x5
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

下面是引用 x09818 於 2010-01-15 17:30 發表的 : 到引言文
不懂~能不能說詳細一點~



修改了一下這樣有比懂嗎@@?


獻花 x0 回到頂端 [2 樓] From:台灣中華電信 | Posted:2010-01-15 20:11 |
x09818
個人文章 個人相簿 個人日記 個人地圖
小人物
級別: 小人物 該用戶目前不上站
推文 x3 鮮花 x23
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

大概知道了~

以您提供資料進行分析
所以我寫出2種不同的加總判斷
希望對您有幫助~

資料一(A)為單純數字時分析 「一般大都用這種方式」

把資料一當作陣列位置並把資料三作加總即可
TEMP(DATA1) += DATA3
搜尋時找到陣列位置就可以找到加總值
輸出加總值= TEMP(輸入資料一值)

資料二(B)為字串時分析 「也可以利用二維陣列」

把資料二放到暫存陣列當索引
啟動暫存陣列迴圈
當暫存資料中索引有資料二 就把資料三加總
複製程式
            TEMP1(i) = DATA1(i) 
            For j = 0 To UBound(TEMP1) 
                If TEMP1(j) = DATA1(i) Then 
                    TEMP2(j) += DATA2(i) 
                    Exit For 
                End If 
            Next

搜尋時
啟動暫存陣列迴圈
當暫存資料中索引為輸入值時 輸出加總值
複製程式
        For j = 0 To UBound(TEMP1) 
            If TEMP1(j) = TextBox2.Text Then 
                Label1.Text = TEMP2(j) 
                Exit For 
            End If 
        Next


附件為執行程式壓縮檔vb2008
程式完整原碼:
複製程式
Public Class Form1 
    Dim DATA0() As Object = {"111", "222", "333", "111", "444", "222"} 
    Dim DATA1() As Object = {"AA", "BB", "CC", "DD", "AA", "FF"} 
    Dim DATA2() As Object = {"6", "1", "2", "4", "5", "3"} 
    Dim TEMP(999) As Integer 
    Dim TEMP1(UBound(DATA0)) As String 
    Dim TEMP2(UBound(DATA0)) As Integer 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 
        TextBox1.Text = "資料一" & vbTab & "資料二" & vbTab & "資料三" & vbTab & vbTab & "一 加總 二" & vbNewLine & "=======================" & vbTab & vbTab & "==============" & vbNewLine 
        For i = 0 To UBound(DATA0) 
            TEMP(CInt(DATA0(i))) += CInt(DATA2(i)) 
            TEMP1(i) = DATA1(i) 
            For j = 0 To UBound(TEMP1) 
                If TEMP1(j) = DATA1(i) Then 
                    TEMP2(j) += DATA2(i) 
                    Exit For 
                End If 
            Next 
            TextBox1.Text &= DATA0(i) & vbTab & DATA1(i) & vbTab & DATA2(i) & vbTab & vbTab & TEMP(CInt(DATA0(i))) 

            For j = 0 To UBound(TEMP1) 
                If TEMP1(j) = DATA1(i) Then 
                    TextBox1.Text &= vbTab & TEMP2(j) 
                    Exit For 
                End If 
            Next 
            TextBox1.Text &= vbNewLine 
        Next 
    End Sub 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
        Label1.Text = "" 
        Label1.Text = TEMP(CInt(TextBox2.Text)) 
    End Sub 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
        Label1.Text = "" 
        For j = 0 To UBound(TEMP1) 
            If TEMP1(j) = TextBox2.Text Then 
                Label1.Text = TEMP2(j) 
                Exit For 
            End If 
        Next 
    End Sub 
End Class 


個人解法.請各位先進指導~


本帖包含附件
zip 9962.rar   (2022-06-09 14:13 / 10 KB)   下載次數:4

此文章被評分,最近評分記錄
財富:50 (by 三仙) | 理由: ^^ 因為您的參與,讓程式設計更容易!!


獻花 x1 回到頂端 [3 樓] From:臺灣中華電信 | Posted:2010-01-16 14:30 |
九九六二
數位造型
個人文章 個人相簿 個人日記 個人地圖
路人甲
級別: 路人甲 該用戶目前不上站
推文 x0 鮮花 x5
分享: 轉寄此文章 Facebook Plurk Twitter 複製連結到剪貼簿 轉換為繁體 轉換為簡體 載入圖片

哇0.0
謝謝大大
好勵害,不過有點看不太懂XD
小弟在來慢慢研究寫法^^
謝謝嚕^^


獻花 x0 回到頂端 [4 樓] From:台灣中華電信 | Posted:2010-01-17 02:19 |

首頁  發表文章 發表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.043091 second(s),query:16 Gzip disabled
本站由 瀛睿律師事務所 擔任常年法律顧問 | 免責聲明 | 本網站已依台灣網站內容分級規定處理 | 連絡我們 | 訪客留言