| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 按数据顺序编号 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=83432) |
| -- 作者：kaituozhe -- 发布时间：2016/4/8 16:45:00 -- 按数据顺序编号 以下代码是想设计一个最简单的编号就是每增加一行，增加一个人员编号，实现不了想要功能，怎么修改？在那个事件中设置？ Dim max As String Dim idx As Integer max = e.DataTable.Compute("Max(人员编号)"," [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号 If max > "" Then \'如果存在最大编号 idx = CInt(max.Substring(0,4)) + 1 \'获得最大编号的后三位顺序号,并加1 Else idx = 1 \'否则顺序号等于1 End If e.DataRow("人员编号") = Format(idx,"0000")
|
| -- 作者：大红袍 -- 发布时间：2016/4/8 16:52:00 -- Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(人员编号)"," [_Identify] <> " & e.DataRow("_Identify")) \'取得该类别的最大编号
If max > "" Then \'如果存在最大编号
idx = CInt(max) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("人员编号") = Format(idx,"0000")
|
| -- 作者：kaituozhe -- 发布时间：2016/4/8 16:57:00 -- 上述代码应该写在那个事件里？ |
| -- 作者：kaituozhe -- 发布时间：2016/4/8 17:00:00 -- 设置datacolchanged \\datacoladding\\datacoladded 都不行 |
| -- 作者：大红袍 -- 发布时间：2016/4/8 17:08:00 -- DataRowAdded事件 |
| -- 作者：kaituozhe -- 发布时间：2016/4/8 17:16:00 -- 也不行呀 |
| -- 作者：大红袍 -- 发布时间：2016/4/8 17:17:00 -- 不可能。测试没问题 |
| -- 作者：kaituozhe -- 发布时间：2016/4/8 17:21:00 -- 在其他软件中可以，在我设计的软件中怎么不行呀？列的宽度、数据类型及列名称都一样 |
| -- 作者：大红袍 -- 发布时间：2016/4/8 17:22:00 -- 1、加入msgbox看能否弹出正确的值；
2、看是不是你datacolchanged事件有冲突代码。 |
| -- 作者：kaituozhe -- 发布时间：2016/4/8 17:25:00 -- 这个表中其他事件都没有内容 |