If e.GetValues.ContainsKey("pdResult") Then
If e.GetValues.ContainsKey("pdResult") And e.GetValues.ContainsKey("sn") Then '如果Get方式提交过来的参数里同时含有这两个参数,则!
Dim dr2 As DataRow= DataTables("盘点记录").AddNew() '用table新增比datatable好,因为如果有关联表,则关联内容会自动填入
dr2("SN")=e.GetValues("SN")
dr2("盘点时间")=Date.Now
'dr2("盘点人")= "王昆"
Dim dr_name As DataRow=DataTables("users_Report").SQLFind("[JobNumber]='" & e.Cookies("username") & "'") '在users_Report表中查找当前工号对应的姓名
if dr_name isnot nothing then
dr2("盘点人")=dr_name("Name")