如何将数据集列传递给VB函数?

时间:2014-04-17 03:17:37

标签: vb.net function visual-studio-2008 dataset microsoft-reporting

我使用MicrosoftReportViewer生成了此报告(https://www.dropbox.com/s/1zgiu3glhsgb8wu/Stack.jpg) 我被要求在报告的顶部显示所有月份的索赔 我可以通过管理获得第一行的名称"二月和#34;通过以下内置VB表达式

        MonthName(Month(First(Fields!ClaimSubmitDate.Value, "DataSet1_DataTable1")))

但我需要展示其余几个月,如(1月,3月和4月) 我理解在报告的CustomCode中编写可视化基本功能所需的逻辑,并传递Column" Claim Date"将它作为数组并循环遍历值,如果有月份更改,则获取该月份名称并将其保存在数月或数月的向量中,最后将所有MonthArray数据传递回文本框。
因为我从未在visual basic中编程,而我不知道如何将数据集表的列传递给函数???一旦传递了该列的数据类型是什么?

1 个答案:

答案 0 :(得分:0)

为什么不通过DataTable作为参数然后循环指定的Column,然后将月份存储在ComboBox上,如下所示:

ComboBox1.DataSource = DataSet1.Tables(0)
ComboBox1.DisplayMember = "ClaimDate" 'Column name

如果您希望将DataTable作为parameter传递给特定的Column

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    CheckMonths(DataSet1.Tables(0))
End Sub

Sub CheckMonths(ByRef dt As DataTable)
    For Each Row As DataRow In dt.Rows
        ComboBox1.Text &= Row("") & vbTab
    Next
End Sub