解決了,把 fr.Write(vbCrLf) 改成 fr.Write(CByte(vbCrLf))即可。
10多年的周寧網(wǎng)站建設(shè)經(jīng)驗(yàn),針對(duì)設(shè)計(jì)、前端、開(kāi)發(fā)、售后、文案、推廣等六對(duì)一服務(wù),響應(yīng)快,48小時(shí)及時(shí)工作處理。成都全網(wǎng)營(yíng)銷(xiāo)的優(yōu)勢(shì)是能夠根據(jù)用戶(hù)設(shè)備顯示端的尺寸不同,自動(dòng)調(diào)整周寧建站的顯示方式,使網(wǎng)站能夠適用不同顯示終端,在瀏覽器中調(diào)整網(wǎng)站的寬度,無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站,都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì),從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“周寧網(wǎng)站設(shè)計(jì)”,“周寧網(wǎng)站推廣”以來(lái),每個(gè)客戶(hù)項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。
牛,為使用二進(jìn)制的程序員鼓掌!
從來(lái)沒(méi)用過(guò)的人問(wèn):為什么要用二進(jìn)制啊,有啥好處?
ALTER TABLE TABLE_Name ADD columnName varchar(30) '新增字段
ALTER TABLE TABLE_Name ADD columnName1 varchar(30) '新增字段
INSERT INTO TABLE_Name(columnName,columnName1)VALUES(columnName,columnName1) ‘插入新行,只給新字段賦值
VB.NET2008代碼:
Dim xlapp1 As Excel.Application
Dim xlworksheet As Excel.Worksheet
Dim xlworkbk As Excel.Workbook
xlapp1 = New Excel.Application
xlworkbk = xlapp1.Workbooks.Open("Excel文件名")
xlworksheet = xlworkbk.Worksheets("Sheet名")
xlworksheet.Cells.Item(行編號(hào), 列編號(hào)).value ="需要輸入的數(shù)據(jù)"
xlworkbk.Close()
另外,xlworksheet.UsedRange.Rows.Count是最大行數(shù),可以用這個(gè)算行編號(hào)。
注意,需要引用Microsoft Excel Object Library(在COM的那個(gè)選項(xiàng)卡里)。
Imports?Microsoft.VisualBasic.FileSystem?'在聲明區(qū)加這句,這包含vb6的一些文件讀寫(xiě)功能
Private?Sub?Button4_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button4.Click
Dim?p?As?Integer?=?FreeFile()
Static?index?As?Integer?=?0
FileOpen(p,?"D:\list.csv",?OpenMode.Append)
index?+=?1
WriteLine(p,?"姓名"??index,?"年齡"??index,?"職業(yè)"??index,?"住址"??index)
FileClose(p)
End?Sub
'?FileIO.TextFieldParser?類(lèi)可以讀取csv文件,或者數(shù)據(jù)庫(kù)有關(guān)類(lèi)也可以讀取
當(dāng)前名稱(chēng):vb.net追加內(nèi)容 vb添加數(shù)據(jù)
瀏覽地址:http://jinyejixie.com/article24/dosggje.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站營(yíng)銷(xiāo)、網(wǎng)站制作、標(biāo)簽優(yōu)化、關(guān)鍵詞優(yōu)化、定制網(wǎng)站、營(yíng)銷(xiāo)型網(wǎng)站建設(shè)
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)