- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [原创]FT遇到不明原因关闭 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25784)
-- 发布时间：2012/11/16 16:03:00
-- [原创]FT遇到不明原因关闭
有二表以号为关联,号为自动编号,按帮助里的关联与增加行代码,放在父表,当父表增加行时,关联表同时增加行,出现问题的是当在父表输入数据时,关联表闪烁,同时出现遇到问题需要关闭.
此主题相关图片如下：123.jpg
-- 发布时间：2012/11/16 16:07:00
--
这个关闭窗口经常出来 我的是关闭了狐表再出来的.
-- 发布时间：2012/11/16 16:55:00
--
原因是查到了,但不解,是启用父表自动编号后引起,不用自动编号后正常,
Dim bh As String = "D-" & Format(Date.Today,"yyyyMMdd")
Dim max As String
Dim idx As Integer
max = e.DataTable.Compute("Max(登记单号)","登记单号 Like \'" & bh & "*\'" )
If max > "" Then \'如果存在最大编号
idx = CInt(max.Substring(10,3)) + 1 \'获得最大编号的后三位顺序号,并加1
Else
idx = 1 \'否则顺序号等于1
End If
e.DataRow("登记单号") = bh & Format(idx,"000")
请高手解
-- 发布时间：2012/11/16 16:57:00
--
做个简单的例子发上来。
-- 发布时间：2012/11/16 17:12:00
--
狐狸爸爸请看
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目68.table |
-- 发布时间：2012/11/16 17:40:00
--
还原不出错误来。
-- 发布时间：2012/11/16 22:22:00
--
二台电脑上输入父表数据都出现关闭
-- 发布时间：2012/11/17 9:08:00
--
嗯嗯，明白了。生成编号的代码，应该放在新增行那里才合理。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目68.table |
-- 发布时间：2012/11/18 23:09:00
--
谢谢in_hailun