Dim y As Integer = Date.Today.Year
Dim d1 As New Date(y, 1,1)
Dim d2 As New Date(y, 12,31)
Dim dt5 As List(of DataRow) = DataTables("销售合同编号表").Select("[创建时间] >= #"&d1&"# And [创建时间] <= #"&d2&"#") '查找"销售合同编号表中"的"创建时间"为今年的所有行
e.Form.Controls("Label10").text = dt5.count 'label10自动写入行数
请教上述代码哪里有问题?