主题：按钮代码问题求助版主？

 看看你的datarowAdded事件、CurrentChanged事件，贴出代码。

  错误提示，和你代码无关。

 

 你哪里执行了sql语句？用于加载数据的？

 msgbox(filter)

 

 你的表格没有【鉴定批次】列或【工作单位】列，或者这两列有一列是表达式列。

 

错误提示的意思是：你编写的列名错了，要么你写错了，要么列是表达式列。

 

你再看看是你哪里的代码导致的报错。

 那就去看你的datacolchanged事件，那里代码有错，特别是写了sql语句的代码。

你datacolchanged事件为什么要写这段代码？而且你没有日期列。请删除

 

Dim y As Integer = Date.Today.Year
Dim q As Integer = (Date.Today.Month - 1) \ 3 + 1 '计算现在是第几个季度
Dim dt1 As New Date(y, 3 * (q - 1) + 1, 1) '获取本季度的第一天
Dim dt2 As New Date(y, 3 * q, Date.DaysInMonth(y,3 * q)) '获取本季度的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#"
DataTables("证书编号表").LoadFilter = Filter
DataTables("证书编号表").Load()