主题：请修改代码错误！定义变量不显示

改成

Dim a As String = e.form.controls("TextBox1").value '定义车型
Dim cntjbgbla3 As Integer  = DataTables("临时统计表").Compute("Count(日期)", "不良描述  Like '%" & a  & "%'  And 日期>= # " & jny3  & "#   And 日期<= # " & jny3z  & "#")