以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  只想简单自动生成序号  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49039)

--  作者：wren --  发布时间：2014/4/11 9:52:00 --  只想简单自动生成序号 我只是想在第二列有内容时，第一列“序号”会自动生成序号。我看了帮助 此主题相关图片如下：qq截图20140411095153.jpg 都是根据年月日之类的～～但我只是想“1-1000”这些简单数字。

--  作者：Bin --  发布时间：2014/4/11 10:00:00 --   你不要拼接那些前缀不就好了. If e.DataCol.Name = "第二列" Then     If e.DataRow.IsNull("第二列") Then         e.DataRow("编号") = Nothing     Else             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")     End If End If [此贴子已经被作者于2014-4-11 10:00:03编辑过]

--  作者：wren --  发布时间：2014/4/11 10:24:00 --   If e.DataCol.Name = "姓名" Then     If e.DataRow.IsNull("姓名") Then         e.DataRow("序号") = Nothing     Else         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")     End If End If Select Case e.DataCol.name     Case "入职日期"         If e.DataRow.IsNull("入职日期") Then             e.DataRow("工龄_年") = Nothing             e.DataRow("工龄_月") = Nothing             e.DataRow("工龄_日") = Nothing         Else             Dim y,m,d As Integer             DateYMD(e.DataRow("入职日期"),Date.Today,y,m,d)             e.DataRow("工龄_年") = y             e.DataRow("工龄_月") = m             e.DataRow("工龄_日") = d         End If End Select 帮我看看有没有错～～

--  作者：wren --  发布时间：2014/4/11 10:26:00 --   我总觉得有点怪怪的～～因为我第一列是“序号”，第二列是”姓名“。我是想在第二列写上名字时，第一列“序号就生成数字

--  作者：Bin --  发布时间：2014/4/11 10:29:00 --   有什么问题吗? 有问题就直接说问题在哪里,并且上例子.

--  作者：wren --  发布时间：2014/4/11 10:31:00 --   此主题相关图片如下：qq截图20140411103020.jpg 还是没有反应

--  作者：Bin --  发布时间：2014/4/11 10:31:00 --   上例子

--  作者：wren --  发布时间：2014/4/11 10:33:00 --   现在的序号是我导入表时，当时表的内容，我想现在自动重新生成序号

--  作者：Bin --  发布时间：2014/4/11 10:35:00 --   请 上 例 子

--  作者：wren --  发布时间：2014/4/11 10:59:00 --   BIN版主，例子昨天上传过了～～你帮我看看行吗～～还有我每次重新导入表时都出现“民族”列有问题！！ 此主题相关图片如下：qq截图20140411105754.jpg