想實作在text中打入資訊。然后從表格內查找到相應數。并把相應資料填充至其他text、combo等框中
If KeyCode = 13 Then
' For row = 0 To 9
' For col = 0 To 7
' n = s <> m
' Next col
' Next row
'Else:
' Text4.Text = Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.row - 1, col)
'End If
'
'
'End If
'If KeyCode = 13 Then
' If Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 7) = Text3.Text Then
' Text4.Text = Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 8)
' Else
' MsgBox "xxx"
' End If
'End If
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
其實不難，很簡單，但你描述的不清楚，text 中打入資訊，你的圖片中看不到那個是 text，無非確定是那個欄位uj5u.com熱心網友回復：
相當于查找 。但我這個回傳的值 不對。。Form2.MSHFlexGrid1.TextMatrix(Form2.MSHFlexGrid1.Row, 8). 比方說我在打ID64的這一行數所。我在領用人里輸入vv，回車后。相應的行64中的資料在這上面同時顯示出來，品名。型號零售價。出庫數量，出庫人員。客戶。uj5u.com熱心網友回復：
在 MSHFlexGrid1_Click() 事件中 或 “領用人”text 的 Text1_LostFocus() 事件中 使用 SQL 陳述句，檢測 資料庫的“領用人 等于MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 8)，然后將檢測到的記錄對應賦值到各 Combox 控制元件及 Textbox 控制元件將可以了呀。
uj5u.com熱心網友回復：
在 MSHFlexGrid1_Click() 事件中這里的事件我都可以用了。我主要是用查詢功能。就是在沒有點mshflexgrid表中點選 。直接在領用人text框內輸入人員，就顯示出相應的資料，分別在其他框內。。我用for陳述句實作了一下。但是for陳述句我不知道結果也就是for 0 to ??? step 1....我實驗的是我現在有的資料，能查找到答案。但？？？這個數面要用什么代替？如果讓他查找到最后一條記錄后停下來。網上看了do while not eof().但不知道這個用在哪uj5u.com熱心網友回復：
Dim lie As IntegerDim heng As Integer
Dim s As String
Dim n As String
Dim m As String
'uboundé?±??? lbound??±???
lie = Form2.MSHFlexGrid1.Row 'rowê?áD colê?oá
heng = Form2.MSHFlexGrid1.Col
'le=ubound-lbound+1
'0áD id
'1áD ?·??
'2áD Dío?
'3áD á?ê???
'4áD 3??aêyá?
'5áD 3??aè??ú
'6áD 3??aè??±
'7áD áìó?è?
'8áD ?í?§
'9áD ±?×￠
s = Text3.Text
'Do While ó???
'
'Loop
If KeyCode = 13 Then
' Do While Not EOF()
On Error GoTo err:
For lie = 1 To 19 Step 1
For heng = 7 To 7 'áìó?è??úμú7áD
m = Form2.MSHFlexGrid1.TextMatrix(lie, heng)
If s = m Then
Text4.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng + 1) '?í?§
Text1.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 4) 'á?ê???
Combo3.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 1) '3??aè??±
Text2.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 3) '3??aêyá?
Combo2.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 5) 'Dío?
cob1.Text = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 6) '?·??
Label9.Caption = Form2.MSHFlexGrid1.TextMatrix(lie, heng - 2) '3??aè??ú
End If
Next heng
Next lie
' Loop
'Else:
' MsgBox "x"
err:
MsgBox "xxx"
End If
End Sub
uj5u.com熱心網友回復：
回復 5樓 llSnakesss如果使用【查詢】按鈕就方便多了。例如：
Private Sub Command2_Click()
'連接資料庫略
strSQL = "select * from 資料表 Where 領用人 ='" & Text2.Text & "'" '假定Text2.Text是領用人的文本框
RS.Open strSQL, db, 2, 2
Text1.Text=RS!某欄位
Text3.Text=RS!某欄位
Combo1.Text=RS!某欄位
Combo2.Text=RS!某欄位
RS.CLOSE
End Sub
這樣你清楚了嗎？
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/8884.html
標籤：VB基礎類
上一篇：如何使某個程式強制運行？