Question

我是Visual Basic的新手，并遵循了有关如何过滤报表查看器的教程。

在按钮上单击我调用此函数并将textbox1中的值传递给：

Mysub(TextBox1.Text)

我只是通过阅读代码粗略地了解了发生了什么，但我想知道是否有人可以对代码进行注释，这样我就可以完全理解正在发生的事情（我所遵循的教程没有详细记录）< / p>

这是Private sub：

Private Sub Mysub(ByVal make As String) 

    Me.ReportViewer1.LocalReport.DataSources.Clear()
    Dim adapter As New Database1DataSetTableAdapters.DataTable1TableAdapter 
    Dim table As New Database1DataSet.DataTable1DataTable 

    adapter.FillByModulename(table, make) 

    Me.ReportViewer1.LocalReport.DataSources.Add(New ReportDataSource("DataSet1", CType(table, DataTable)))
    Me.ReportViewer1.RefreshReport() 


End Sub

FillByModulename是我创建的一个查询，过滤器设置为= @ Modulename，用于模块名称列，因此输入文本框的内容将在此列中过滤。

谢谢大家的时间

了解可视化基本代码

0 个答案: