主题：升级为最新版后无法使用

以下几个无反应了，新增加记录按键都失效，不知什么问题。 

工程_DataColChanged

 

If e.DataCol.Name = "申请日期" Then

   If e.DataRow.IsNull("申请日期") Then

      e.DataRow("工程编号") = Nothing

   Else

        If e.DataRow.IsNull("工程编号") OrElse e.DataRow("工程编号").StartsWith(e.DataRow("工程编号")) = False Then

           Dim Count As Integer = e.DataTable.Compute("Count(申请日期)","申请日期  = '" & e.DataRow("申请日期") & "'")

           e.DataRow("工程编号") = "F" & format(e.DataRow("申请日期"),"yyyyMMdd-") & Format(Count,"00")

        End If

   End If

End If

 

窗口与控件事件

 

窗口2_Button1_Click

 

Forms("窗口2").Close()

 

窗口2_Button2_Click

 

Tables("工程").AddNew()

 

窗口2_Button3_Click

 

Tables("工程.施工预结算表").AddNew()

 

窗口2_Button4_Click

 

Tables("工程.材料结预算表").AddNew()