行列循環(huán)查詢就可以了阿
網(wǎng)站的建設(shè)成都創(chuàng)新互聯(lián)專注網(wǎng)站定制,經(jīng)驗豐富,不做模板,主營網(wǎng)站定制開發(fā).小程序定制開發(fā),H5頁面制作!給你煥然一新的設(shè)計體驗!已為展覽展示等企業(yè)提供專業(yè)服務(wù)。
假如?DataSet1是你的?DataSet,見下面的代碼
Dim?db?As?DataTable?=?DataSet1.Tables("表名")
Dim?c?As?Integer?=?db.Columns.Count?-?1
Dim?r?As?Integer?=?db.Rows.Count?-?1
For?i?=?0?To?r
For?j?=?0?To?c
If?db.Rows(r).Item(i)?=?"A"?Then
MsgBox("行是:"??i??"列是:"??j)
End?If
Next
Next
1、首先打開Visual Studio 2008代碼窗口,添加引用。
2、輸入以下代碼:Public conn1 ?As SqlConnection = New SqlConnection 。
3、聲明關(guān)鍵字 Public;(因為是全局變量,所以用Public 來聲明)。
4、如果SQL 數(shù)據(jù)庫就在本機(jī),則用以下代碼連接。
5、如果代碼太長,影響可讀性,可以用空格加"_"后,回車換行即可。
select * from 表 where
(case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end+
case when 條件 then 1 else 0 end) BETWEEN 2 and 5
你是想獲取總行數(shù)?還是選中行和列的索引?
獲取總行數(shù):dataGridView1.Rows.Count;
獲取當(dāng)前選中行索引:int
i
=
this.dataGridView1.CurrentRow.Index;
獲取當(dāng)前選中列索引:int
j
=
this.dataGridView1.CurrentCell.ColumnIndex;
求行:
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 blUser As Boolean
Dim sql_conn As New SqlClient.SqlConnection("data source=.;initial catalog=test;user id=sa;password=123456;")
sql_conn.Open()
Dim sql_comm As New SqlClient.SqlCommand("Select user from table where user='123'", sql_conn)
Dim reader As SqlClient.SqlDataReader
reader = sql_comm.ExecuteReader
reader.Read()
If reader.HasRows Then
blUser = True
End If
reader.Close()
sql_conn.Close()
名稱欄目:關(guān)于vb.net查詢列數(shù)的信息
網(wǎng)站路徑:http://jinyejixie.com/article28/dssesjp.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供移動網(wǎng)站建設(shè)、品牌網(wǎng)站制作、網(wǎng)站排名、電子商務(wù)、網(wǎng)站營銷、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)