[求助]关于自动造成顺序号的求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

改一下这句代码。

idx = max.LastIndexOf("-") + 1
msgbox(idx)
idx = CInt(max.Substring(idx,3)) + 1 '获得最大单据编号的后四位顺序号,并加1

现在就传给你

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

如下，看11楼。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.table

可以了,但新的问题又出现了,如管理项目3中,信息表中的转任/调任等进行统计的时候,我想按审签序号进行统计,现在按单位代码统计时,把上边的相同的单位代码的数据也给统计了,我的设计目的是,按审签序号,统计相同审签序号的的转任/调任数量,这如何是好,请再赐教,谢谢

代码如下:Select Case e.DataCol.Name

Case "审签序号"

Dim total As Long

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 1 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("转任") = Iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 2 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("调任") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 3 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("交流") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 4 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("军转") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 5 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("考录") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 6 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("过渡") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 1 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("调出") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 2 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("退休") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 3 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("辞职辞退") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 4 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("开除") = iif(Total = 0, Nothing, Total)

Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 5 And 审签序号 = " & e.DataRow("审签序号"))

e.DataRow("死亡") = iif(Total = 0, Nothing, Total)

End Select

统计报错？加入单引号。

Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 1 And 审签序号 = '" & e.DataRow("审签序号") & "'")

e.DataRow("转任") = Iif(Total = 0, Nothing, Total)

谢谢你,真是厉害,我还想请教你个问题,下边的这版面是怎么做的,能讲解一下,我想做一个系统,在系统里运行,好看一些,目的是在试用版上练习会了,准备买一个开发版的,你看图片和程序
图片点击可在新窗口打开查看

此主题相关图片如下：截图02.png

下载信息 [文件大小：下载次数： ]
点击浏览该文件:会员管理系统发布.table

很简单的，左边是一个停靠窗口，拖入控件；右边是一个停靠窗口，设置窗口的背景图片就行了。

http://www.foxtable.com/help/topics/0698.htm

他作的右边的停靠窗口,点击图标后,不能再回来,怎么实现

以下是引用hrw68529在2013-2-18 15:12:00的发言：
他作的右边的停靠窗口,点击图标后,不能再回来,怎么实现

你可以参考人家这个项目的代码，答案都在代码里了。

或者你先把窗口设计一章看完吧。

主题：[求助]关于自动造成顺序号的求助