Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请老师帮助


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

主题：[求助]请老师帮助
帅哥哟，离线，有人找我吗？
爱相随
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		[求助]请老师帮助  发帖心情 Post By：2014/8/1 10:59:00 [显示全部帖子]

老师，以下代码是自动生成编号的代码，是根据登录单位+年度+月份+000三位数组成的代码，修改后不得行，提示标注红色的代码有错，请老师帮助一下，谢谢！！
Select e.DataCol.Name
    Case "DWJM","ND","ZJY"
        If e.DataRow.IsNull("DWJM") OrElse e.DataRow.IsNull("ND") OrElse e.DataRow.IsNull("ZJY") Then
            e.DataRow("JHBH") = Nothing
        Else
            Dim bh As String = e.DataRow("DWJM") & "-" & e.DataRow("ND") & "-" & e.DataRow("ZJY") & "-" '生成编号的前缀
            If e.DataRow("JHBH").StartsWith(bh) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                Dim flt As String
                flt = "DWJM = '"& e.DataRow("DWJM") & "'" And "ND = '"& e.DataRow("ND") & "'" And "ZJY = '"& e.DataRow("ZJY") & "'" And [_Identify] <> " & e.DataRow("_Identify")
                max = e.DataTable.Compute("Max(JHBH)",flt) '取得该月的相同工程代码的最大单据编号
                If max > "" Then '如果存在最大单据编号
                    idx = CInt(max.Substring(12,3)) + 1 '获得最大单据编号的后四位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("JHBH") = bh & Format(idx,"000")
            End If
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 11:12:00 [显示全部帖子]

老师，在增加第二条记录时，提示以下信息，是什么意思呢？？，是长度不够吗？
.NET Framework 版本：2.0.50727.3053
Foxtable 版本：2014.5.12.1
错误所在事件：表，ZJJHB，DataColChanged
详细错误信息：
Exception has been thrown by the target of an invocation.
Index and length must refer to a location within the string.
Parameter name: length

[此贴子已经被作者于2014-8-1 11:12:21编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 11:23:00 [显示全部帖子]

老师，下面的代码中，我要自动获得是哪一张单号的数据填列不完整，怎么增加代码呢？？
If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows       
        If Tables("ZJJHB").current.IsNull("KSMC") OrElse Tables("ZJJHB").current.IsNull("SQJE") OrElse Tables("ZJJHB").current.IsNull("SBSM") Then
            MessageBox.Show("数据填列不完整,不允许上报,请检查!.")
        Else
            Tables("ZJJHB").Current("SBR") = User.Name
            Tables("ZJJHB").Current.Save()
        End If      
    Next
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 11:25:00 [显示全部帖子]

真的很麻烦各位老师了，水平太差，但又实在想学，。。。。以我这种水平能不能做这项工作啊。。。，
[此贴子已经被作者于2014-8-1 11:26:00编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 11:40:00 [显示全部帖子]

我要把是哪一单据号填列不完整显示出来，怎么设呢？老师提供的上面的代码显示不出单据号。
If User.IsRole("录入人") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows       
       If r.IsNull("KSMC") OrElse r.IsNull("SQJE") OrElse r.IsNull("SBSM") Then
            MessageBox.Show("单据号 ("JHBH") 数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()        
        End If      
    Next
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 11:44:00 [显示全部帖子]

太感谢两位老师，谢谢你们无私的帮助，，感动。。。。

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


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 14:15:00 [显示全部帖子]

老师，提示标注红色的代码有错，请帮助修正一下，谢谢！！！
If e.DataCol.Name = "SHYJ" Then 
 Dim K As String
 Select Case K
       Case K = "同意"
           E.DataTable("SH1") = "SQJE"
       Case K = "修改"
           E.DataTable("SH1") = " "
       Case Else
           E.DataTable("SH1") = "0"
 End Select  
End If
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 14:20:00 [显示全部帖子]

就是如果“SHYJ”列的内容是“同意”，则“SH1”的内容取本表的“SQJE”内容，如果 “SHYJ”列 内容是“修改”，则“SH1”列的为空，需要人为填写，如是 “SHYJ”列 内容是其他，则“SH1”的值为0

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


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 14:49:00 [显示全部帖子]

下面这段代码，没有加红色部份前可以执行，加了之后，没有提示错误，但就是不执行，
Else If User.IsRole("审核人2") Then
    For Each r As Row In Tables("ZJJHB").GetCheckedRows        
        If Tables("ZJJHB").current.IsNull("SHR") Then
            MessageBox.Show("填报部门未审核,不能审核!.")
           If Tables("ZJJHB").current.IsNull("SHYJ") Then
                MessageBox.Show("审核意见为空,请检查!.")
        Else
            Tables("ZJJHB").Current("SH") = User.Name
            Tables("ZJJHB").Current.Save()
           End If
        End If
    Next
 回到顶部
帅哥哟，离线，有人找我吗？
爱相随
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：四尾狐 帖子：929 积分：6500 威望：0 精华：0 注册：2014/6/25 10:48:00 		  发帖心情 Post By：2014/8/1 15:01:00 [显示全部帖子]

谢谢老师，现在有个问题：
1、项目设置了不同部门编制不同行，但在审核中存在问题，审核人1与录入人是同一工作组，审核人1可以审核，审核人2与审核人1属不同的工作组，可以查看，但不能审核了，但要求审核人2和审核人3能审核所有工作组的单据。
2、因为是集团公司，要求普通人员只能查看本公司的数据，而对于集团公司的相关人员，则可以查看和审核所有公司的数据，所以授权与编辑有点矛盾。
3、数据上报后禁止删除行记录，现在是谁都可以删除。
看老师能有办法解决么
[此贴子已经被作者于2014-8-1 15:08:26编辑过]
 回到顶部
总数 21 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 5 次数据查询