主题：求助未找到列

老师，这段代码，运行到判断语句的时候提示未找到列[id1],数据类型都是整数

If Forms("凭证生成").opened AndAlso e.DataCol.name = "posstation"
Dim dtp As WinForm.DateTimePicker = Forms("凭证生成").Controls("Date1")
Dim dtp1 As Date = dtp.value

If e.DataRow("date") <> dtp.value Then Return
    Select Case e.newvalue
          Case "西餐厅"
       Dim id1 As Integer = CurrentTable.Current("_Identify")
       messagebox.show(id1)
          If  DataTables("page").compute("count(Fdate)","Fdate = '" & dtp.value & "' And CBid =  id1") = 0 Then
                
                    Dim dr As DataRow = DataTables("page").AddNew()
                    dr("CBid") = e.DataRow("_Identify")
                    dr("Fdate") = e.DataRow("date")
                    dr("FYear") = dtp1.year
                    dr("FPeriod") = dtp1.month
                    dr("FAccountNum") = "500.02.001"
                 End If
     End Select
End If