以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  为什么我所绑定的表作为副本项选择不了做为副本  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=45798)
--  作者：wjlwdy
--  发布时间：2014/2/11 12:29:00
--  为什么我所绑定的表作为副本项选择不了做为副本
求救，为什么我所绑定的表作为副本项选择不了做为副本，如附图
图片点击可在新窗口打开查看此主题相关图片如下：新建 bmp 图像 (2).bmp
图片点击可在新窗口打开查看
--  作者：wal020
--  发布时间：2014/2/11 12:32:00
--  
 对任意长度前缀顺序编号。假设表格中的不同雇员、雇员代号，雇员姓名和代号长度不一致，要对任意长度前缀自动生成顺序编号（雇员姓名，可以将表格属性DataColChanged事件代码设置为：


Select e.DataCol.Name
    Case "雇员", "代号"
        If e.DataRow.IsNull("雇员") OrElse e.DataRow.IsNull("代号")  Then
            e.DataRow("同雇员同代号编号") = Nothing
        Else
            Dim lb As String = e.DataRow("雇员") & e.DataRow("代号")
            If e.DataRow("同雇员同代号编号").StartsWith(lb) = False    \'如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(同雇员同代号编号)","雇员 = \'" & e.DataRow("雇员") & "\' And 代号 = \'" & e.DataRow("代号") & "\' And [_Identify] <> " & e.DataRow("_Identify"))     \'取得该类别的最大编号
                If max > "" Then \'如果存在最大编号
                  idx = CInt((StrReverse( StrReverse(max).Substring(0,4))) .Substring(0)) + 1 \'将获得的最大编号的后四位顺序号加1
                    Else
                    idx = 1 \'否则顺序号等于1
                End If
                e.DataRow("同雇员同代号编号") = lb & Format(idx,"0000")  \'设编号为4位
            End If
        End If
End Select
--  作者：Bin
--  发布时间：2014/2/11 14:10:00
--  
关联表是不可以设置为副本表的.