Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何给动态列表第一个值赋值


  共有2498人关注过本帖树形打印复制链接

主题：如何给动态列表第一个值赋值
帅哥哟，离线，有人找我吗？
qqhealth
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3068 威望：0 精华：0 注册：2018/11/23 10:41:00 		如何给动态列表第一个值赋值  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3068 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/6 21:39:00 [只看该作者]

老师您好，增加代码后，健康室可以自动填入。 Dim dr As DataRow = DataTables("药品订购方").find("用户名 = 用户名")，但是所有用户均自动填入了第一个健康室，不知是哪出问题了。谢谢！
图片点击可在新窗口打开查看此主题相关图片如下：2.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/6 21:50:00 [只看该作者]

贴出代码

 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3068 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：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)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/10/6 21:59:00 [只看该作者]

服了，都不用思考的吗

Dim dr As DataRow = DataTables("药品订购方").find("用户名 = '" & e.Cookies("username") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
qqhealth
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：409 积分：3068 威望：0 精华：0 注册：2018/11/23 10:41:00 		  发帖心情 Post By：2019/10/7 8:25:00 [只看该作者]

老师谢谢，第一次是这样写的，报错后就改了，第一次估计是格式问题。谢谢！

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04199 秒, 4 次数据查询