Dim y1 As String = Date.Now.Year
Dim yf1 As String = Date.Now.Month
Dim yf2 As String = Date.Now.AddMonths(1).Month
Dim y2 As String = Date.Now.AddMonths(1).Year
Dim yf3 As String = Date.Now.AddMonths(2).Month
Dim y3 As String = Date.Now.AddMonths(2).Year
yf1 = yf1.PadLeft(2,"0")
yf2 = yf2.PadLeft(2,"0")
yf3 = yf3.PadLeft(2,"0")
Dim ts1 As Integer = Date.DaysInMonth(y1,yf1)
Dim ts2 As Integer = Date.DaysInMonth(y2,yf2)
Dim ts3 As Integer = Date.DaysInMonth(y3,yf3)
Dim dtb As New DataTableBuilder("lsb")
dtb.AddDef("产品类别", Gettype(String), 30)
dtb.AddDef("产品编码", Gettype(String), 30)
dtb.AddDef("产品名称", Gettype(String), 50)
For i As Integer = 1 To ts1
If i<10
dtb.AddDef(y1 & yf1 & "_0" & i, Gettype(Integer))
Else
dtb.AddDef(y1 & yf1 & "_" & i, Gettype(Integer))
End If
Next
For i As Integer = 1 To ts2
If i<10
dtb.AddDef(y2 & yf2 & "_0" & i, Gettype(Integer))
Else
dtb.AddDef(y2 & yf2 & "_" & i, Gettype(Integer))
End If
Next
For i As Integer = 1 To ts3
If i<10
dtb.AddDef(y3 & yf3 & "_0" & i, Gettype(Integer))
Else
dtb.AddDef(y3 & yf3 & "_" & i, Gettype(Integer))
End If
Next
dtb.Build()
加好友 
发短信
Post By：2017/12/29 16:27:00 [显示全部帖子]
