台灣最大程式設計社群網站
線上人數
1195
 
會員總數:246274
討論主題:189809
歡迎您免費加入會員
討論區列表 >> VB6 >> Msflexgrid
[]  
[我要回覆]
回應主題 加入我的關注話題 檢舉此篇討論 將提問者加入個人黑名單
Msflexgrid
價值 : 20 QP  點閱數:1692 回應數:0
樓主

tom
門外漢
0 38
726 161
發送站內信

Sub Copy_File()
Dim Count As Integer
Count = 0

MSh.Cols = 4
MSh.TextMatrix(0, 0) = "編號"
MSh.TextMatrix(0, 1) = "機台名稱"
MSh.TextMatrix(0, 2) = "資料夾來源"
MSh.TextMatrix(0, 3) = "存檔路徑"
For i = 1 To 3
MSh.Col = i
MSh.Row = 0
MSh.CellBackColor = &HC0&
Next



Open App.Path & "\System\Database\CopyFile_Address.TXT" For Input As #1
Do While Not EOF(1)
Line Input #1, X
Count = Count + 1
MSh.Rows = Count + 1
MSh.Row = Count
MSh.TextMatrix(Count, 0) = Count
MSh.TextMatrix(Count, 1) = Split(X, "@")(0)
MSh.TextMatrix(Count, 2) = Split(X, "@")(1)
MSh.TextMatrix(Count, 3) = Split(X, "@")(2)


Loop
Close #1


MSh.ColWidth(0) = 600
MSh.ColWidth(1) = 1700
MSh.ColWidth(2) = 5000
MSh.ColWidth(3) = 5000



===================================================================================

我要做的是資料庫備份

我有新增的頁面 先把 要複製的資料夾 根 複製到的地方 寫入 文字檔 CopyFile_Address.txt

上面可以把文字檔內容SHOW到 MSFLEXGRID中
我不知道如何去做 修改 ,刪除的功能
我隨便點一列 我的TEXTBOX 會把該列的數據 顯示在該TEXTBOX 這沒問題

想請問的地方在於 如何 連同文字檔一起改
等於 以MSFLEXGRID 間接 修改文字檔 刪除文字檔的內容






本篇文章發表於2010-11-20 00:19
目前尚無任何回覆
   

回覆
如要回應,請先登入.