Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助


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

主题：求助
帅哥，在线噢！
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/1 11:20:00 [显示全部帖子]

命令窗口，或者设计添加一个按钮，放到按钮事件里。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/1 11:57:00 [显示全部帖子]

灾难恢复：http://www.foxtable.com/webhelp/scr/1057.htm
按住Ctrl键打开项目，用开发者登录，输入密码后，先按住Ctrl键，再点击确定，一直到项目打开再松开Ctrl键
 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/1 16:05:00 [显示全部帖子]

If e.Col.Name <> "转为退职" andalso e.Col.Name <> "备注"  Then
    e.Cancel = True
End If

或者

If e.Col.Name = "转为退职" orelse e.Col.Name = "备注"  Then
else
    e.Cancel = True
End If

或者

select case e.Col.Name
case "转为退职","备注"
case else
e.Cancel = True
end select
 回到顶部
帅哥，在线噢！
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/1 17:37:00 [显示全部帖子]

dr("排序") = IIF(fdr.isnull("单位编号"),"999999",fdr("单位编号")) & dr("职务排序")

 回到顶部
帅哥，在线噢！
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/1 20:25:00 [显示全部帖子]

1、
Select Case e.DataCol.Name
    Case "部门","职务排序"
        Dim s As String = "999999"
        If e.DataRow.IsNull("部门")=False Then
            Dim fdr As DataRow = DataTables("工作单位").Find("简称 = '" & e.DataRow("部门") & "'")
            If fdr IsNot Nothing
                s = fdr("单位编号")
            End If
        End If
        If e.DataRow.IsNull("职务排序") Then
            s = s & "99"
        Else
            s = s & e.DataRow("职务排序")
        End If
e.DataRow("排序") = s
End Select
3、PrepareEdit事件
e.Cancel = True
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/5 17:23:00 [显示全部帖子]

放到datacolchanged事件，不是随便找个事件就能用的：http://www.foxtable.com/webhelp/topics/1445.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/5 17:39:00 [显示全部帖子]

已有数据重置一次列即可：http://www.foxtable.com/webhelp/topics/1469.htm，新数据会自动计算

没有必要每次打开项目计算一次，效率差不说，影响启动速度

另外每个事件都有自己的使用场合，不是随便找个事件就能用，也不是把所有代码都堆到一个事件里使用，不然也没有必要搞那么多事件了。一台机器的正常运行是要靠所有零件的配合的
 回到顶部
帅哥，在线噢！
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/12 21:07:00 [显示全部帖子]

有没有点击保存？排序列是表达式列？改为数据列：http://www.foxtable.com/webhelp/topics/2494.htm

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/12 21:58:00 [显示全部帖子]

请上传实例说明

 回到顶部
帅哥，在线噢！
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106558 积分：541955 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/7/13 9:16:00 [显示全部帖子]

去掉afteropenproject事件下面代码，自己写代码又更改了数据，保存了也没有用

For Each dr As DataRow In DataTables("基本信息").Select("部门 is not null")
    Dim fdr As DataRow = DataTables("工作单位").Find("简称 = '" & dr("部门") & "'")
    If fdr IsNot Nothing
        dr("排序") = fdr("单位编号") & dr("职务排序")
    End If
Next

列宽设置
方法1、在主表使用鼠标拖动列到合适位置，然后点击左上角保存按钮保存项目
 回到顶部
总数 32 上一页 1 2 3 4 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询