Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click ' Dim myView As New Data.DataView(IP_ADR_OVERSIGTDataSet.Tables("0")) IP_ADR_OVERSIGTDataSet.Tables("udstyr").DefaultView.RowFilter = "IP = '10.65.47.170'"
ved ikke om det hjælper hvis jeg lige sender lidt af koden med
Imports System.Data.DataView Imports System.Data.DataViewRowState Imports System.Data Public Class Printer
Private Sub Printer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load, MyBase.Load, MyBase.Load 'TODO: This line of code loads data into the 'IP_ADR_OVERSIGTDataSet.udstyr' table. You can move, or remove it, as needed. Me.UdstyrTableAdapter.Fill(Me.IP_ADR_OVERSIGTDataSet.udstyr) Try Me.UdstyrTableAdapter.Printer(Me.IP_ADR_OVERSIGTDataSet.udstyr) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try Me.ReportViewer1.RefreshReport() End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick Me.UdstyrTableAdapter.Update(Me.IP_ADR_OVERSIGTDataSet.udstyr) End Sub
Private Sub SøgToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Try Me.UdstyrTableAdapter.Søg(Me.IP_ADR_OVERSIGTDataSet.udstyr) Catch ex As System.Exception System.Windows.Forms.MessageBox.Show(ex.Message) End Try
End Sub
Protected Overrides Sub Finalize() MyBase.Finalize() End Sub
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.