[求助]请老师帮助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有4886人关注过本帖树形打印复制链接主题：[求助]请老师帮助

爱相随

小大 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 Select

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/1 11:01:00 [只看该作者]

flt = "DWJM = '"& e.DataRow("DWJM") & "' And ND = '" & e.DataRow("ND") & "' And ZJY = '" & e.DataRow("ZJY") & "' And [_Identify] <> " & e.DataRow("_Identify")

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/1 11:02:00 [只看该作者]

flt = "DWJM = '"& e.DataRow("DWJM") & "' And ND = '"& e.DataRow("ND") & "' And ZJY = '" & e.DataRow("ZJY") & "' And [_Identify] <> " & e.DataRow("_Identify")

爱相随

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/1 11:13:00 [只看该作者]

idx = CInt(max.Substring(bh.length,3)) + 1 '获得最大单据编号的后四位顺序号,并加1

爱相随

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

Else

MessageBox.show("你非数据填报人,无上报权限!")

End If

爱相随

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

有点甜

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/1 11:26: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(r("单号") & "数据填列不完整,不允许上报,请检查!.")
        Else
            r("SBR") = User.Name
            r.Save()
        End If
    Next
Else
    MessageBox.show("你非数据填报人,无上报权限!")
End If

[此贴子已经被作者于2014-8-1 11:26:06编辑过]