我有節點樹形像 桌面 筆記本 打印機等等使用的DataReader和瀏覽記錄
我寫代碼來獲取記錄在上述節點的點擊(臺式機,筆記本等各基地。) 代碼:
Private Sub tvMenu_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles tvMenu.AfterSelect
'The event handler for clicking a node in the treeview
If tpDeviceStore.Focus Then
desktop()
notebooks()
End If
End Sub
「一個節點的實施例,以及如何記錄從DBASE
Private Sub desktop()
If tvMenu.SelectedNode.Name = "ndDesktop" Then
Dim con As New clsGlobals
con.cnn.Open()
Dim str1 As String = "select * from DeviceLogger where devType='Desktop' order by devSN desc"
Dim cmd1 As New SqlCommand(str1, con.cnn)
Dim dr As SqlDataReader = cmd1.ExecuteReader()
While dr.Read()
txtDT.Text = dr("devType").ToString
txtMF.Text = dr("devManufacture").ToString
txtMod.Text = dr("devModel").ToString
txtSN.Text = dr("devSN").ToString
txtRD.Text = dr("devRecieveDte").ToString
txtST.Text = dr("devStatus").ToString
End While
DV = New DataView(DS.Tables("Devicelogger"))
CM = CType(Me.BindingContext(DV), CurrencyManager)
dr.Close()
con.cnn.Close()
Else
txtDT.Text = String.Empty
txtMF.Text = String.Empty
txtMod.Text = String.Empty
txtSN.Text = String.Empty
txtRD.Text = String.Empty
txtST.Text = String.Empty
Exit Sub
End If
End Sub
檢索
我想要一個記錄檢索時,我的第一個,上一個,下一個和最後一個按鈕應該導航字段。 感謝您的幫助...