gh0st

回復 10# hugo洛


    Dim mystr As String
        Dim str1(2) As String
        TextBox1.Text = "沒有找到相關資料!"
        FileOpen(1, "C:\data.txt", OpenMode.Input) '打開data.txt
        Do Until EOF(1)'開始循環執行下面既code
            mystr = LineInput(1)'逐行讀
            str1 = Split(mystr, ",")'讀到之後以逗號分割mystr的字串儲存到str1
            If str1(0) = TextBox2.Text And str1(1) = TextBox3.Text Then TextBox1.Text = str1(2) '判斷數據如果同讀到既相同就顯示
        Loop
        FileClose()'關閉data.txt

加左d註釋睇下明唔明

hugo洛

回復  hugo洛


    Dim mystr As String
        Dim str1(2) As String
        TextBox1.Text = "沒有 ...
gh0st 發表於 2013-10-24 21:32

EOF(1) 係咩黎 ?點解會係括號1既

gh0st

回復 12# hugo洛


    http://msdn.microsoft.com/zh-tw/library/7ct2yy4s(v=vs.90).aspx
其實如果你唔明d函數可以參考MSDN

hugo洛

回復  hugo洛


    (v=vs.90).aspx
其實如果你唔明d函數可以參考MSDN
gh0st 發表於 2013-10-24 21:52

明白多了.. 唔該哂

hugo洛

回復  hugo洛


    Dim mystr As String
        Dim str1(2) As String
        TextBox1.Text = "沒有 ...
gh0st 發表於 2013-10-24 21:32

我想問下...如果 我用黎輸入既唔係textbox....即係combo box 做法係咪一樣...?
Do Until EOF(1)
            mystr = LineInput(1)
            str1 = Split(mystr, ",")
            If str1(0) = ComboBox1.Items(0).ToString And str1(1) = ComboBox4.Items(0).ToString Then
                TextBox1.Text = str1(2)

            End If
        Loop
        FileClose()
我咁樣做既話....佢無論點都係搵唔到...
------------------------------------------------------------------------------------------------------------------------------
後記 :   我解決到啦   用SelectedItem  就得左:)
果然自己解決先最有成功感

tonyli1212

        ElseIf rn = 4 Or rn = 5 Then
            n2 = "Wong"

        ElseIf rn = 6 Or rn = 7 Then
            n2 = "D"

        ElseIf rn = 8 Or rn = 9 Then
            n2 = "B"

gh0st

樓上已經俾左答案你
Or唔係咁用
Or後面都要跟翻你個變數
a = 1 or a= 2
唔可以就咁a=1 or 2 佢係唔識判斷的