时间戳

首页 > 解决方案 > 搜索到DataGridView（显示记录）选择记录打印vb.net

vb.net - 搜索到DataGridView（显示记录）选择记录打印vb.net

问题描述

这是我的代码，但它会打印所有记录。我想搜索记录并打印水晶报告。

Imports System.Data.SqlClient

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        '
        Me.Patient_tblTableAdapter.Fill(Me.DoctorDataSet.patient_tbl)

    End Sub

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        PatienttblBindingSource.Filter = "(Convert(ID,'System.String') LIKE '" & TextBox1.Text & "%')"
    End Sub


Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim rpt As New CrystalReport1
        rpt.SetDataSource(DoctorDataSet)
        Form2.CrystalReportViewer1.ReportSource = rpt

        Form2.ShowDialog()

    End Sub
End Class

标签： vb.netsortingvisual-studio-codesearchcrystal-reports

解决方案

尝试在 like 语句中使用 '*' 而不是 '%' ：

PatienttblBindingSource.Filter = "(Convert(ID,'System.String') LIKE '" & TextBox1.Text & "*')"

推荐阅读