步驟如下:
創(chuàng)新互聯(lián)網(wǎng)站建設(shè)10余年堅持,服務(wù)企業(yè)網(wǎng)站設(shè)計、響應(yīng)式網(wǎng)站等網(wǎng)站建設(shè)服務(wù)。1000+企業(yè)的合作經(jīng)驗,幫助我們?yōu)榉?wù)企業(yè)不斷提升價值。為企業(yè)建設(shè)開發(fā)網(wǎng)站和維護(hù),主推個性化定制型網(wǎng)站設(shè)計
窗體上添加2個列表框,一個按鈕:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
'搜索并顯示子文件夾
ListBox1.Items.Clear()
For Each MySubDir As String In System.IO.Directory.GetDirectories(MyDir)
ListBox1.Items.Add(MySubDir)
Next
'搜索并顯示文件
ListBox2.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir)
ListBox2.Items.Add(MyFile)
Next
End Sub
End Class
str1是數(shù)字類型而strrow是文字類型,所以出錯。。
把str1轉(zhuǎn)成string就可以了。。。
可以這樣做啊。button單擊事件里邊獲取textbox的值,傳回到數(shù)據(jù)庫
sql語句如下
select
*
from
表名
where
匹配的列
like
'%參數(shù)%'
得到的結(jié)果就是包含查詢內(nèi)容的所有結(jié)果了
窗體上添加一個文本框,一個列表框,一個按鈕:
代碼如下:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyDir As String = "C:\123"
Dim MyFilter As String = "*" TextBox1.Text "*"
ListBox1.Items.Clear()
For Each MyFile As String In System.IO.Directory.GetFiles(MyDir, MyFilter)
ListBox1.Items.Add(MyFile)
Next
End Sub