- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 代码中如下两句 总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=146211)
-- 发布时间：2020/2/19 0:43:00
-- 代码中如下两句 总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:求助代码.txt |
代码中如下两句 总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表
此主题相关图片如下：文字文稿1.png
Dim nms() As String = {"学校","班级","亲属姓名","学生姓名","是否有症状","是否外出"} \'不能为空的列名数组
Dim nms() As String = {"学校","班级","亲属姓名","学生姓名","与学生关系","身份证号","联系电话","现居住地","居住类型","班主任姓名","是否有症状","是否外出"} \'不能为空的列名数组
此主题相关图片如下：文字文稿1.png-- 发布时间：2020/2/19 9:25:00
--
搞反了，调换位置即可
Dim d1122 As DataRow = DataTables("学生信息登记").sqlfind("身份证号=\'" & e.PostValues("身份证号") & "\'")
If d1122 IsNot Nothing Then
Dim nms() As String = {"学校","班级","亲属姓名","学生姓名","是否有症状","是否外出"} \'不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" \'改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.Writestring(wb.Build)
Return "" \' \'必须返回
End If
Next
nms = {"学校","班级","亲属姓名","学生姓名","与学生关系","身份证号","联系电话","现居住地","居住类型","班主任姓名","是否有症状","是否外出"} \'不能为空的列名数组
Dim dr As DataRow = DataTables("学生二次信息登记").sqlAddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
dr("提交日期")=Format(Date.now, "d")
dr("提交时间")=Format(Date.now, "T")
dr.save()
With wb.AddMsgPage("","msgpage","增加成功", "战疫情,保健康!") \'生成成功提示页
.AddButton("btn1","谢谢合作,返回继续添加!","xueshengdengji.htm")
End With
Else
Dim nms() As String = {"学校","学生姓名","亲属姓名","班级","与学生关系","性别","年龄","身份证号","联系电话","现居住地","户籍地址","社区管控人员","管控人员电话","是否外出","是否出省","外出地点","外出时间","返回时间","外出交通工具","是否有症状","班主任姓名","返回交通工具","提交日期","居住类型","提交时间"} \'重新定义了nms数组,增加了两列.
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then \'生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
-- 发布时间：2020/2/19 9:42:00
-- 回复：（有点蓝）搞反了，调换位置即可 ...
好的 谢谢有点蓝老师 我调整看看
从表中查找这个号码是否有数据，如果有就把一些如姓名 性别 电话号码等输入框全部隐藏起来 避免页面繁琐
-- 发布时间：2020/2/19 9:45:00
--
方法1、先提供一个简单的页面，只有身份证号码输入框，输入提交后再根据身份证号码返回不同的详情页面
2、输入框绑定js的onclick事件，使用ajax提交数据，根据返回值使用js控制前端框架的显示和隐藏
-- 发布时间：2020/2/19 10:05:00
-- 回复：（有点蓝）方法1、先提供一个简单的页面，只有身...
OK 谢谢老师
刚刚看帮助教程 这个页面也貌似也可以设定多个页面用按钮进行绑定访问
此主题相关图片如下：0194.png
图中的数字⑧是不是可以采用统计得到的数据记录总数进行动态赋值呢？
-- 发布时间：2020/2/19 10:11:00
--
比如：.Add("ls1", "新浪主页").Badge = datatables("表A").compute("count(第一列)")
-- 发布时间：2020/2/19 10:54:00
-- 回复：（有点蓝）比如：.Add("ls1", "新浪主页")...
OK 灰常感谢