vb.net生成流水号 如何生成流水号

vb怎么生成流水号,开头英文不变

Private Sub Command1_Click()

成都创新互联公司的客户来自各行各业，为了共同目标，我们在工作上密切配合，从创业型小企业到企事业单位，感谢他们对我们的要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站建设、网站建设、电商网站开发、微信营销、系统平台开发。

s = "ABCD2014-"

For i = 1 To 10

s1 = s Format(i, "0000")

Print s1

Next i

End Sub

vb如何用TEXT自动生成流水号，如2011-09-01001,2011-09-002,每天的日期加上3位流水号

public i as integer

Private Sub Command1_Click()

i=i+1

text1.text=format(date(),"yyyy-mm-dd") format(i,"000")

end sub

VB.NET中 自动生成流水号怎么写？

DateTime.Now.ToString("yyyyMMdd") 生成当前日期，格式如 20090302

在数据库中建立表，字段为，年 月 日 号码

创建流水号时，查询当前日期下的最大号码，然后+1即可。

VB6.0 查询数据库 怎样编写程序获取数据库内的编码例如201208100003的后四位是流水号，然后加1，谢谢

假设数据库中字段为ccode

取出其中最大的流水号

sql语句可以这么写:select max(right(ccode,4)) + 1 as ccode from 表

VB.net实例

1 生成txt文件。

DimSaveFileDialog1AsNewSaveFileDialog() '创建一个保存对话框

SaveFileDialog1.Filter ="txt files (*.txt)|*.txt" '设置扩展名

IfSaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OKThen '如果确定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False) '保存文本,False表示不追加文本，直接覆盖其内容

EndIf

原文链接：