- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 窗口改变才执行 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107268)
-- 发布时间：2017/9/24 19:25:00
-- 窗口改变才执行
可以把下面的代码放到窗口的某个事件吗？
如果只有才操作窗口的Table5改变后才执行应该怎么改呀，感谢 感谢
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
Case "状态"
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
ElseIf e.DataRow("状态") = "已完成" Then
e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "事件编号 = \'" & e.DataRow("事件编号") & "\' and 进行_开始日期 is not null")
End If
End Select
[此贴子已经被作者于2017/9/24 19:25:14编辑过]
-- 发布时间：2017/9/24 20:15:00
--
判断当前表名
msgbox(currentTable.Name)
看上面的代码弹出什么，根据弹出的内容加一个if判断
-- 发布时间：2017/9/24 20:39:00
--
此主题相关图片如下：qq截图20170924203618.jpg
能帮忙看看吗？
当在窗口改变状态列后执行下面红色代码？感谢 感谢
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
Case "状态"
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
ElseIf e.DataRow("状态") = "已完成" Then
e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "事件编号 = \'" & e.DataRow("事件编号") & "\' and 进行_开始日期 is not null")
End If
End Select
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:窗口改变状态.table |
[此贴子已经被作者于2017/9/24 20:39:00编辑过]
-- 发布时间：2017/9/25 0:24:00
--
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
Case "状态"
If CurrentTable.name = "窗口1_Table1" Then
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
ElseIf e.DataRow("状态") = "已完成" Then
e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "事件编号 = \'" & e.DataRow("事件编号") & "\' and 进行_开始日期 is not null")
End If
End If
End Select
-- 发布时间：2017/9/25 19:56:00
--
感谢 感谢 是放到窗口的textchanged 显示错误呢？
此主题相关图片如下：qq截图20170925195507.jpg
-- 发布时间：2017/9/25 20:38:00
--
1楼代码原来所在的事件
-- 发布时间：2017/9/25 22:01:00
--
感谢 感谢 可以了 只是可以加两个表吗？感谢 感谢
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
Case "状态"
If CurrentTable.name = "计划表窗口_Table1" And "计划表窗口_Table2" And "计划表窗口_Table3" Then
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
ElseIf e.DataRow("状态") = "已完成" Then
e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "事件编号 = \'" & e.DataRow("事件编号") & "\' and 进行_开始日期 is not null")
End If
End If
End Select
-- 发布时间：2017/9/25 22:11:00
--
If CurrentTable.name = "计划表窗口_Table1" And CurrentTable.name = "计划表窗口_Table2" And ......
-- 发布时间：2017/9/25 22:25:00
--
是那里不对吗？ 改变窗口的状态列，没有执行代码样，感谢 感谢
Select Case e.DataCol.Name
Case "下周工作计划"
Dim fdr As DataRow = e.DataTable.Find("附加列 = " & e.DataRow("_Identify"))
Case "状态"
If CurrentTable.name = "计划表窗口_Table1" And CurrentTable.name = "计划表窗口_Table2" And CurrentTable.name = "计划表窗口_Table3" Then
If e.DataRow("状态") = "办理中" Then
e.DataRow("进行_开始日期") = Date.Now
ElseIf e.DataRow("状态") = "已完成" Then
e.DataTable.ReplaceFor("进行_完成日期", Date.Now, "事件编号 = \'" & e.DataRow("事件编号") & "\' and 进行_开始日期 is not null")
End If
End If
End Select
\'
-- 发布时间：2017/9/25 22:32:00
--
If CurrentTable.name = "计划表窗口_Table1" orelse CurrentTable.name = "计划表窗口_Table2" orelse CurrentTable.name = "计划表窗口_Table3" Then