以下几个无反应了，新增加记录按键都失效，不知什么问题。
工程_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()
加好友 
发短信
Post By：2012/6/8 13:14:00 [只看该作者]
