Hallo zusammen
stehe gerade völlig auf dem Schlauch
ich habe mir einige Beiträge zum Filtern des Datagridview angeschaut und bin jetzt ganz verwirrt.
Ich bekomme egal wie ich es probiere keine Filterung hin. Selectieren und markieren funktioniert gut.
was mache ich falsch? Brauche anstoß in die richtige Richrung
Hier mein bisheriger Code:
CodeTags korrigiert und Thema verschoben ~VaporiZed
stehe gerade völlig auf dem Schlauch
ich habe mir einige Beiträge zum Filtern des Datagridview angeschaut und bin jetzt ganz verwirrt.
Ich bekomme egal wie ich es probiere keine Filterung hin. Selectieren und markieren funktioniert gut.
was mache ich falsch? Brauche anstoß in die richtige Richrung
Hier mein bisheriger Code:
VB.NET-Quellcode
- Option Explicit On
- Imports System.Data.OleDb
- Imports Microsoft.Office.Interop
- Imports System.IO
- Public Class Form1
- Dim conn As OleDbConnection
- Dim dta As OleDbDataAdapter
- Dim dts As DataSet
- Dim excel As String
- Dim OpenfileDialog As New OpenFileDialog
- Private Sub btnLaden_Click(sender As Object, e As EventArgs) Handles ImportExcel.Click
- Try
- OpenfileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
- OpenfileDialog.Filter = "All files (*.*)|*.*|Excel files (*.xlsx)|*.xlsx|xls files (+.xls)|*.xls"
- If OpenfileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK Then
- Dim fi As New IO.FileInfo(OpenfileDialog.FileName)
- Dim FileName As String = OpenfileDialog.FileName
- excel = fi.FullName
- conn = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + excel + ";Extended Properties=Excel 12.0;")
- dta = New OleDbDataAdapter("select * from [Übersicht$]", conn)
- dts = New DataSet
- dta.Fill(dts, "[Übersicht$]")
- DGV1.DataSource = dts
- DGV1.DataMember = "[Übersicht$]"
- conn.Close()
- End If
- Catch ex As Exception
- MsgBox(ex.Message)
- conn.Close()
- End Try
- End Sub
- Private Sub btnFiltern_Click(sender As Object, e As EventArgs) Handles btnFiltern.Click
- Dim grid As DataGridView
- Dim sSuchwert As String
- grid = DGV1
- sSuchwert = CboBox1.Text
- Funktionen.SucheWertundMarkiereZeile(grid, sSuchwert)
- End Sub
CodeTags korrigiert und Thema verschoben ~VaporiZed
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()