仅可见行:
for each r As Row in CurrentTable.Rows r("年份") =e.Form.Controls("combobox1").Value next所有行:for each r As DataRow in CurrentTable.DataTable.DataRows r("年份") =e.Form.Controls("combobox1").Value next