现在有个界面，界面跟简单，一个Combobox,一个Table。Table绑定了一张表，该表中有一列字段是统计年份，取值有2011,2012,2013。Combobox现在也能够自动列出该表统计年份的值。现在想通过Combobox的SelectedIndexChanged实现选择一个列表项目后下方的表就显示该年的数据信息。请问应该怎么实现?

界面如下：

看看SelectedIndexChanged的代码这样设置行不行：

Dim y As integer = e.Sender.Text

Dim dt1 As New Date(y,1,1)

Dim dt2 As New Date(y,12,31)

Tables("xxx").filter =  “日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 

现在还有一个问题，我在那个窗口界面下放了几个lable和textbox，用于显示表格的某些统计信息，希望在selectedindexchanged事件触发的时候，显示的表格的数据就会自动计算好然后填充到我的textbox中，但是不知道怎么弄呢？

此主题相关图片如下：qq截图20130702152311.png

表中计划运行时间是固定值：24*365，实际运行时间就是某年“运行时间（H）”列的sum汇总值，其他的反正可以算出来，就告诉我这两个怎么去实现就行了。

界面中的textbox我都设为只读了，另外修改了一下背景颜色，应该不会影响吧？

另外贴上我的selectedindexchanged的代码:

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim txt1 As String = e.Form.Controls("TextBox1").Value
Dim txt2 As String = e.Form.Controls("TextBox2").Text
Dim txt3 As String = e.Form.Controls("TextBox3").Text
Dim txt4 As String = e.Form.Controls("TextBox4").Text
Dim txt5 As String = e.Form.Controls("TextBox5").Text
Dim txt6 As String = e.Form.Controls("TextBox6").Text
Dim txt7 As String = e.Form.Controls("TextBox7").Text
Dim txt8 As String = e.Form.Controls("TextBox8").Text
Dim txt9 As String = e.Form.Controls("TextBox9").Text
Dim txt10 As String = e.Form.Controls("TextBox10").Text
Dim str As String = cmb.Value
Dim tbl As Table = Tables("设备运行表")
If str IsNot Nothing Then
    tbl.Filter = "统计年份 = " &  "\'" & str & "\'"
    txt1 = 1
    \'txt2 = tbl.
Else
    tbl.Filter = ""
End If