- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 如何给动态列表第一个值赋值 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=141586)
-- 发布时间：2019/10/5 22:16:00
-- 如何给动态列表第一个值赋值
老师您好，我做一个健康室药品领用的表，不同的用户服务不同的健康室，每个健康室药品不同，做了动态列表。如何实现健康室项目不用选择，直接根据用户匹配？相关代码和图片如下。谢谢！
此主题相关图片如下：2019-10-05 213727.jpg
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then \'生成增加订单网页
wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>健康咨询</h3>")
wb.AddForm("","form1","zxjl.htm")
With wb.AddInputGroup("form1","ipg1","咨询记录")
.AddInput("用户名","用户名","text").Value = e.Cookies("username")
With .AddSelect("健康室","健康室","|" & DataTables("药品库存").GetComboListString("健康室"))
.Attribute = """
End With
.AddInput("日期","日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
.AddInput("员工姓名","员工姓名","text")
.AddInput("身份证","身份证","text")
.AddInput("工号","工号","text")
.AddSelect("性别","性别","男|女")
.AddInput("部门","部门","text")
.AddInput("疾病","疾病","text")
.AddInput("建议","建议","text")
With .AddSelect("药品类别","药品类别","|" & DataTables("药品库存").GetComboListString("药品类别"))
.Attribute = """
End With
With .AddSelect("药品名称","药品名称","")
.Attribute = """
End With
With .AddSelect("生产厂家","生产厂家","")
.Attribute = "" \'调用js函数
End With
.AddInput("规格","规格","")
.AddInput("规格数量","规格数量","")
.AddInput("出库数量","出库数量","").Attribute = ""
.AddInput("出库","出库","number")
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "button").Attribute= ""
.Add("btn2", "汇总","","zxjllist.htm")
.Add("btn3", "统计", "","zxjltjlist.htm")
End With
With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") \'增加订单成功提示框
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","http://www.qqhealth.net").Kind = 1
End With
With wb.AddDialog("","dlg2", "错误","") \'增加订单失败提示框
.AddButton("btnOK","确定")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script src=\'./lib/calc.js\'></script>") \'引入脚本文件
End If
e.WriteString(wb.Build)
-- 发布时间：2019/10/6 16:17:00
--
比如
.AddInput("用户名","用户名","text").Value = e.Cookies("username")
dim dr as datarow = datables("xxxx").find("用户名=xxxx")
if dr isnot nothing then
with .AddInput("健康室","健康室","text")
.Value = dr("健康室")
.readonly = true
end with
else
With .AddSelect("健康室","健康室","|" & DataTables("药品库存").GetComboListString("健康室"))
.Attribute = """
End With
end if
-- 发布时间：2019/10/6 21:39:00
--
老师您好，增加代码后，健康室可以自动填入。 Dim dr As DataRow = DataTables("药品订购方").find("用户名 = 用户名")，但是所有用户均自动填入了第一个健康室，不知是哪出问题了。谢谢！
此主题相关图片如下：2.jpg
此主题相关图片如下：1.jpg
-- 发布时间：2019/10/6 21:50:00
--
贴出代码
-- 发布时间：2019/10/6 21:54:00
--
老师您好，咨询记录增加页面代码如下：
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then \'生成增加订单网页
wb.InsertHTML("<h3 align=\'center\' style=\'margin-top:5px\'>健康咨询</h3>")
wb.AddForm("","form1","zxjl.htm")
With wb.AddInputGroup("form1","ipg1","咨询记录")
.AddInput("用户名","用户名","text").Value = e.Cookies("username")
Dim dr As DataRow = DataTables("药品订购方").find("用户名 = 用户名")
If dr IsNot Nothing Then
With .AddInput("健康室","健康室","text")
.Value = dr("健康室")
.readonly = True
End With
Else
With .AddSelect("健康室","健康室","|" & DataTables("药品库存").GetComboListString("健康室"))
.Attribute = """
End With
End If
.AddInput("日期","日期","date").Value = Format(Date.Today,"yyyy-MM-dd")
.AddInput("员工姓名","员工姓名","text")
.AddInput("身份证","身份证","text")
.AddInput("工号","工号","text")
.AddSelect("性别","性别","男|女")
.AddInput("部门","部门","text")
.AddInput("疾病","疾病","text")
.AddInput("建议","建议","text")
With .AddSelect("药品类别","药品类别","|" & DataTables("药品库存").GetComboListString("药品类别"))
.Attribute = """
End With
With .AddSelect("药品名称","药品名称","")
.Attribute = """
End With
With .AddSelect("生产厂家","生产厂家","")
.Attribute = "" \'调用js函数
End With
.AddInput("规格","规格","")
.AddInput("规格数量","规格数量","")
.AddInput("出库数量","出库数量","").Attribute = ""
.AddInput("出库","出库","number").Step = "0.01"
End With
With wb.AddButtonGroup("form1","btg1",False)
.Add("btn1", "确定", "button").Attribute= ""
.Add("btn2", "汇总","","zxjllist.htm")
.Add("btn3", "统计", "","zxjltjlist.htm")
End With
With wb.AddDialog("","dlg1", "提示","增加订单成功,是否继续增加?") \'增加订单成功提示框
.AddButton("btnYes","是").Attribute = ""
.AddButton("btnNo","否","http://www.qqhealth.net").Kind = 1
End With
With wb.AddDialog("","dlg2", "错误","") \'增加订单失败提示框
.AddButton("btnOK","确定")
End With
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
wb.AppendHTML("<script src=\'./lib/calc.js\'></script>") \'引入脚本文件
End If
e.WriteString(wb.Build)
-- 发布时间：2019/10/6 21:59:00
--
服了，都不用思考的吗
Dim dr As DataRow = DataTables("药品订购方").find("用户名 = \'" & e.Cookies("username") & "\'")
-- 发布时间：2019/10/7 8:25:00
--
老师谢谢，第一次是这样写的，报错后就改了，第一次估计是格式问题。谢谢！