vb6中如何把右邊文本框中的內(nèi)容依次導(dǎo)入到datagrid中
- 資格考試
- 2023-01-30 17:43:14
vb6中如何把右邊文本框中的內(nèi)容依次導(dǎo)入到datagrid中
你把這些文本框與adodc1控件綁定,再把DataGrid控件也與adodc1綁定,這樣你在文本框輸入的數(shù)據(jù)就會(huì)自動(dòng)出現(xiàn)在DataGrid中了。具體如何綁定這里三言兩語(yǔ)說不清,自己百度吧。vb將text中的內(nèi)容寫入datagrid,急急急
首先一下 textbox的內(nèi)容 是怎么寫進(jìn)去的 如果是直接輸入就不用說了,一般是不太好弄,如時(shí)是變量寫入的話 直接用變量寫入datagrid
基本是沒有什么難度,如果數(shù)少就直接寫入,數(shù)多的話就用循環(huán)寫入,也不是什么大問題 ,二話不說上一代碼你參考
我這是讀取txt文件 寫入的
Private Sub Command2_Click()
Lines = ""
Text2.Text = ""
ic = 0
Open "d:\4.txt" For Input As #1
Do While Not EOF(1)
On Error Resume Next
Line Input #1, NextLine
ic = ic + 1
b = Split(NextLine, ",", -1)
If ic = MSFlexGrid1.Rows Then
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
End If
p(ic) = Val(b(0)): X(ic) = Val(b(1)): Y(ic) = Val(b(2)): z(ic) = Val(b(3))
MSFlexGrid1.TextMatrix(ic, 0) = ic
MSFlexGrid1.TextMatrix(ic, 1) = p(ic)
MSFlexGrid1.TextMatrix(ic, 2) = X(ic)
MSFlexGrid1.TextMatrix(ic, 3) = Y(ic)
MSFlexGrid1.TextMatrix(ic, 4) = z(ic)
Lines = Lines & NextLine & Chr(13) & Chr(10)
Picture1.Print X(ic);
If ic Mod 10 = 0 Then Picture1.Print
Loop
Close #1
Text9.Text = Lines
End Sub