主题：自己动手设计筛选树

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓1库管理.table

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓1库管理.table

“物资类型_三级“列如果出现中文，就会报错
此主题相关图片如下：2s36x%72sesath1eo167(o.png

“物资类型_三级“列如果出现中文，就会报错

DataColChanged事件，修改代码

 

Select e.DataCol.Name
    Case "物资类别_三级"
        If e.DataRow.IsNull("物资类别_三级") Then
            e.DataRow("物资编码") = Nothing
        Else
            Dim lb As String = e.DataRow("物资类别_三级")
            If e.DataRow("物资编码").StartsWith(lb) = False '如果单据编号前缀不符
                Dim max As String
                Dim idx As Integer
                max = e.DataTable.Compute("Max(物资编码)","物资类别_三级 = '" & lb & "' And [_Identify] <> " & e.DataRow("_Identify")) '取得该类别的最大编号
                If max > "" Then '如果存在最大编号
                    idx = CInt(max.Substring(lb.length,3)) + 1 '获得最大编号的后三位顺序号,并加1
                Else
                    idx = 1 '否则顺序号等于1
                End If
                e.DataRow("物资编码") = lb & Format(idx,"000")
            End If
        End If
End Select

此主题相关图片如下：p1(q(kyi~uf3hmb~%__4l.png

问题一：汇总模式下不能编辑。

问题二：如果[出入库类型列]入库。还回，增加相应数量，如果是领用，借用，则减少相应数量。

请正确上传图片

 

http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 

此主题相关图片如下：w6m~5y~0f%``2wv``zqw7l.png

 

问题一：汇总模式下不能编辑。

问题二：如果[出入库类型列]入库。还回，增加相应数量，如果是领用，借用，则减少相应数量。

 

 

1、click、doubleclick事件

 

e.table.StartEditing

 

2、没看懂你的意思。你把数量改成正数、负数，不就可以了？

选择[物资类别_三级]后，再点击目录树后，出现错误信息