以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [原创]请问这段代码可以怎么改进？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56960)
--  作者：qq416743279
--  发布时间：2014/9/16 8:30:00
--  [原创]请问这段代码可以怎么改进？
我在做一个自动生成编号的代码，其中用到了 do while...loop 语句，但在循环里面重复了外面的一段代码，是否可以有类似 do...while loop这样的语句来改进这段代码呢？
e.DataRow("日期")=Date.Today()
Dim d As Date
d=Date.Today()
Dim i As Integer
i=1
Dim bh As String
bh="bh"+Format(d,"yyyyMMdd")+Format(i,"000")
Dim filter As String
filter="编号=\'"+bh+"\'"
Dim dr As DataRow
dr=DataTables("测试表").find(filter)
Do While dr IsNot Nothing
i=i+1
bh="bh"+Format(d,"yyyyMMdd")+Format(i,"000")
filter="编号=\'"+bh+"\'"
dr=DataTables("测试表").find(filter)
Loop
e.DataRow("编号")=bh
[此贴子已经被作者于2014-9-16 8:30:28编辑过]
--  作者：Bin
--  发布时间：2014/9/16 8:42:00
--  
http://www.foxtable.com/help/topics/2403.htm