S elect Cas e e.Path
Case "bjkc.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","bjkc.htm")
With wb.AddInputGroup("form1","ipg1","库存查询")
.AddInput("bjmc","备件名称:","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "查询", "submit")
End With
Else
Dim cmd1 As New SQLCommand
cmd1.C
cmd1.CommandText = "SE L ECT ID AS 物料ID,JIGOU AS 所属机构,CANGKU AS 所属仓库,MINGCHENG AS 物料名称,SHULIANG AS 库存数量 F R OM KUCUN where 备件名称='" & e.PostValues("bjmc") & "'"
Dim dt1 As DataTable = cmd1.ExecuteReader
With wb.AddTable("","Table1")
.CreateFromDataTable(dt1,False)
End With
End If
End Sel ect
加好友 
发短信
Post By：2017/4/7 14:07:00 [显示全部帖子]
