Dim mt1,mt2 As Date
mt1 = Date.Today.AddDays(-30)
mt2 = Date.today
Dim cmd As New SQLCommand
cmd.C
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT 配货 Fr {成品入库} WHERE 日期 >= #" & mt1 & "# And 日期 <= #" & mt2 & "#"
dt = cmd.ExecuteReader()
wb.AddForm("","form1","cprk.htm")
With wb.AddInputGroup("form1","ipg1","成品入库")
Dim UserName As String = e.Cookies("username") '从cookie中获取用户名
Dim Val1 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候
Dim Val2 As Date = Date.today
.AddHiddenValue("登记",Val1)
.AddHiddenValue("日期",Val2)
With .AddInput("零件图号","零件图号","")
.Attribute = "" '调用js函数
End With
.AddInput("零件名称","零件名称","Text")
.AddSelect("配货","配货","|"+dt.SQLGetComboListString("配货"))
.AddInput("入库数量","入库数量","Number")
End With
..........