代码中如下两句总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:求助代码.txt

代码中如下两句总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表

Dim nms() As String = {"学校","班级","亲属姓名","学生姓名","是否有症状","是否外出"} '不能为空的列名数组

Dim nms() As String = {"学校","班级","亲属姓名","学生姓名","与学生关系","身份证号","联系电话","现居住地","居住类型","班主任姓名","是否有症状","是否外出"} '不能为空的列名数组

此主题相关图片如下：文字文稿1.png

搞反了，调换位置即可

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

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

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 & "列不能为空!")

好的谢谢有点蓝老师我调整看看

是否可以实现当在身份证号码输入框里面输入值后

从表中查找这个号码是否有数据，如果有就把一些如姓名性别电话号码等输入框全部隐藏起来避免页面繁琐

方法1、先提供一个简单的页面，只有身份证号码输入框，输入提交后再根据身份证号码返回不同的详情页面

2、输入框绑定js的onclick事件，使用ajax提交数据，根据返回值使用js控制前端框架的显示和隐藏

OK 谢谢老师

刚刚看帮助教程这个页面也貌似也可以设定多个页面用按钮进行绑定访问

此主题相关图片如下：0194.png

图中的数字⑧是不是可以采用统计得到的数据记录总数进行动态赋值呢？

比如：.Add("ls1", "新浪主页").Badge = datatables("表A").compute("count(第一列)")

主题：代码中如下两句 总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表

主题：代码中如下两句总是不能实现正确判断，当有身份证号已经有记录是，执行第一个，然后写入二次登记表，当无记录时，执行第二个，然后写入登记表