| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 升级为最新版后无法使用 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20425) |
| -- 作者：hejfen -- 发布时间：2012/6/8 13:14:00 -- 升级为最新版后无法使用 以下几个无反应了，新增加记录按键都失效，不知什么问题。 工程_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() |
| -- 作者：lihe60 -- 发布时间：2012/6/8 15:21:00 -- 有提示还是没有任何反应？ |
| -- 作者：lihe60 -- 发布时间：2012/6/8 15:22:00 -- 应该是“申请日期”的值没有变动。 |
| -- 作者：狐狸爸爸 -- 发布时间：2012/6/8 17:27:00 -- 下载 .net Framework 2.0 Sp2 从微软官方网站下载： http://download.microsoft.com/download/c/6/e/c6e88215-0178-4c6c-b5f3-158ff77b1f38/NetFx20SP2_x86.exe
|