Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口改变才执行


  共有1956人关注过本帖树形打印复制链接

主题：窗口改变才执行
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		窗口改变才执行  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/25 19:56:00 [显示全部帖子]

感谢 感谢 是放到窗口的textchanged 显示错误呢？

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20170925195507.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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
'
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/9/25 22:49:00 [显示全部帖子]

谢谢 可以了 感谢 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 6 次数据查询