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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 指定行

共有11384人关注过本帖树形打印复制链接主题：指定行

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/8/9 10:14:00 [只看该作者]

对不起，老师，看漏最后一行！

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/8/9 11:21:00 [只看该作者]

DataTables("职工资料").DataCols("姓名").RaiseDataColChanged("姓名 = '" & e.DataRow("姓名") & "'")

Dim s As String

If e.DataCol.Name = "姓名" Then

Dim fdr1 As DataRow = DataTables("代码").find("部室 = '" & e.DataRow("部门") & "'")

Dim fdr2 As DataRow = DataTables("代码").find("职务 = '" & e.DataRow("职务") & "'")

s = fdr1("部室代码") + fdr2("职务代码")

Dim Names As New List(Of Object)

Names.Clear

For Each dc As Row In Tables("职工资料")

If dc("序号").length = 6 AndAlso dc("序号").substring(0,4) = s Then

Names.Add(dc("序号"))

End If

If names.count > 0 Then

s = format(Functions.Execute("最大值",names.ToArray) + 1,"000000")

ElseIf names.count = 0 Then

s = s & "01"

End If

If fdr1 IsNot Nothing AndAlso fdr2 IsNot Nothing Then

e.DataRow("序号") = s

End If

请问老师：应如何改才可在职工明细资料表中自动生成序号？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/9 11:31:00 [只看该作者]

Select Case e.DataCol.name
    Case "职务", "部门"
        Dim fdr1 As DataRow = DataTables("代码").find("部室 = '" & e.DataRow("部门") & "'")
        Dim fdr2 As DataRow = DataTables("代码").find("职务 = '" & e.DataRow("职务") & "'")
        If fdr1 IsNot Nothing AndAlso fdr2 IsNot Nothing Then
            Dim s As String
            s = fdr1("部室代码") + fdr2("职务代码")
            Dim max As String = e.DataTable.Compute("max(序号)", "部门 = '" & e.DataRow("部门") & "' and 职务 = '" & e.DataRow("职务") & "' and _Identify <> " & e.DataRow("_Identify"))
            If max > "" Then
                e.DataRow("序号") = s & format(cint(max.SubString(4))+1, "00")
            Else
                e.DataRow("序号") = s & "01"

            End If
        End If
End Select

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/8/9 15:23:00 [只看该作者]

请问老师：代码如何加入日期"日期 desc“：

Dim max As String = e.DataTable.Compute("max(序号)", "部门 = '" & e.DataRow("部门") & "' and 职务 = '" & e.DataRow("职务") & "' and _Identify <> " & e.DataRow("_Identify"))

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/9 15:30:00 [只看该作者]

Dim max As String = ""

Dim fdr As DataRow = e.DataTable.Find("部门 = '" & e.DataRow("部门") & "' and 职务 = '" & e.DataRow("职务") & "' and _Identify <> " & e.DataRow("_Identify"), "日期 desc")
If fdr IsNot Nothing Then max = fdr("序号")

发财

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

加好友

发短信

等级：六尾狐帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00

Post By：2016/8/9 16:32:00 [只看该作者]

如果调整：李1　原序号：010101，李2　原序号：010102

将李1调整为070108，李2如何自动调整为010101？

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/8/9 16:41:00 [只看该作者]

看不懂你的逻辑，无法调整。

下一主题 >> << 上一主题

总数 147 1.. 上一页 6 7 8 9 10 11 12 13 14 15

主题：指定行