1、添加TextBox控件
創(chuàng)新互聯(lián)建站專業(yè)為企業(yè)提供梁溪網(wǎng)站建設(shè)、梁溪做網(wǎng)站、梁溪網(wǎng)站設(shè)計、梁溪網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計與制作、梁溪企業(yè)網(wǎng)站模板建站服務(wù),10多年梁溪做網(wǎng)站經(jīng)驗,不只是建網(wǎng)站,更提供有價值的思路和整體網(wǎng)絡(luò)服務(wù)。
2、設(shè)置TextBox屬性
3、編寫代碼
4、運行效果
給個思路。
一、Entity Framework (EF)
引用了EF后,在EF 的datacontext將你的access數(shù)據(jù)庫配置上。你的增刪改查等都需要你在業(yè)務(wù)中去定義。
datagridview控件是Winform里面的吧,你只要在數(shù)據(jù)庫定義的時候每條數(shù)據(jù)都有一個遞增的ID,然后你顯示數(shù)據(jù)的時候順序使用ID desc就行了。
二、 ADO.net
做個Accesshelper類,使用connetion,command,reader等對象對Access數(shù)據(jù)庫進行各類操作。
求行:
RichTextBox1.GetLineFromChar(RichTextBox1.SelStart)+1
這個代碼呢,我的理解呢,是獲取在selstart的地方的行數(shù)。一般來講selstart的地方都是光標(biāo)的地方,然后會給你返回line。不過返回的時候要自己加1。不是很懂這個語法,有懂得可以教我一下
以上是求行數(shù)。
求列:
For i = 0 To RichTextBox1.SelStart
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart - i) 0 Then Exit For
j = j + 1
Next i
這個for循環(huán)呢,講的是檢查這一行光標(biāo)前有多少個列,然后用J輸出列的個數(shù)。
因為VB6.0沒有RichTextBox1.GetFirstCharIndexOfCurrentLine這種語法。所以就得自己模擬這個過程。
具體怎么檢查的呢,首先將 i 從0循環(huán)到光標(biāo)處,
如果 【光標(biāo)字符數(shù)】處的行數(shù) 減去 【光標(biāo)字符數(shù)減去 i 個字符數(shù)】處的行數(shù)小于0了,我寫了個不為零。但此時寫小于零就可以。那么代表著換行了,同時也代表著光標(biāo)到上一行之間有多少字。用j存儲循環(huán)次數(shù),得出對應(yīng)列數(shù)。(我們中文習(xí)慣是叫第一列,但程序?qū)嶋H上是第零列,但在循環(huán)的時候就注意到并解決這個問題了)
如果你替換寫法,例如
If RichTextBox1.GetLineFromChar(RichTextBox1.SelStart) - RichTextBox1.GetLineFromChar(RichTextBox1.SelStart + i) 0 Then Exit For
j = j + 1
Next i
這個 J 就對應(yīng)著光標(biāo)到該行結(jié)尾有幾個字符了,如果有需要可以使用,但一般不需要。
那么就像上面說的那樣,行列都求出來了,最后用事件和TEXT或者caption表現(xiàn)出來就好了
至于說總行數(shù)
RichTextBox1.GetLineFromChar(Len(RichTextBox1.Text)) + 1
通過對最后一個字符的位置(總長度)的行來判斷唄,不過也得加一。
請把問題敘述清楚?
Dim H As Integer
H = DataGridView1.Rows.Count - (3 + 1) '求得最后第3行的行號
Dim LinStr As String = "" '存放數(shù)據(jù)的字符串變量
Dim MyH As Integer
Dim MyL As Integer
MyH = H
Do While MyH = DataGridView1.Rows.Count - 1
For MyL = 0 To 2 '每行數(shù)據(jù)為3列
LinStr = LinStr DataGridView1.Item(MyL, MyH).Value " "
Next
LinStr = LinStr vbCrLf '換行
MyH = MyH + 1
Loop
TextBox1.Text = LinStr
代碼已經(jīng)在VB 2010里通過運行。
Dim mycon As New SqlConnection(connstrs)
Dim sqlStr As String = "SELECT * FROM [Column] FROM [Table]"
Dim cmd As New SqlCommand(sqlStr, mycon)
Dim reader = cmd.ExecuteReader()
Dim i As Integer = 1
While reader.Read()
Dim txt As New TextBox()
txt.Name = "txt" + i
txt.Size = New Size(100, 20) '文本框大小
txt.Location = New Point(50, i * 20 + 20)'left:50 top:隨便寫的,自己看著調(diào)
txt.Text = reader.GetValue(0).ToString()
Me.Controls.Add(txt) 'Me 可以改為你要添加上去的對象
End While
'未經(jīng)過運行,自己調(diào)試看看能否OK
列名與相應(yīng)的數(shù)據(jù)相對應(yīng),做個表或者文本之類的,把想要循環(huán)的東西寫在表或文本里,時時刷新就好了?。?!