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


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

主题：窗口改变才执行
帅哥哟，离线，有人找我吗？
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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/9/24 20:15:00 [只看该作者]

判断当前表名

 

msgbox(currentTable.Name)

 

看上面的代码弹出什么，根据弹出的内容加一个if判断
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/25 20:38:00 [只看该作者]

1楼代码原来所在的事件

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/25 22:11:00 [只看该作者]

If CurrentTable.name = "计划表窗口_Table1" And CurrentTable.name = "计划表窗口_Table2"  And ......

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
'
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110744 积分：563646 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/9/25 22:32:00 [只看该作者]

If CurrentTable.name = "计划表窗口_Table1" orelse CurrentTable.name = "计划表窗口_Table2"  orelse CurrentTable.name = "计划表窗口_Table3"  Then

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