Private Sub Command1_Click()
成都创新互联公司的客户来自各行各业,为了共同目标,我们在工作上密切配合,从创业型小企业到企事业单位,感谢他们对我们的要求,感谢他们从不同领域给我们带来的挑战,让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。专业领域包括成都网站建设、网站建设、电商网站开发、微信营销、系统平台开发。
s = "ABCD2014-"
For i = 1 To 10
s1 = s Format(i, "0000")
Print s1
Next i
End Sub
public i as integer
Private Sub Command1_Click()
i=i+1
text1.text=format(date(),"yyyy-mm-dd") format(i,"000")
end sub
DateTime.Now.ToString("yyyyMMdd") 生成当前日期,格式如 20090302
在数据库中建立表,字段为,年 月 日 号码
创建流水号时,查询当前日期下的最大号码,然后+1即可。
假设数据库中字段为ccode
取出其中最大的流水号
sql语句可以这么写:select max(right(ccode,4)) + 1 as ccode from 表
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
原文链接: