| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 移动页面代码，多处if语句，保存信息问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102024) |
| -- 作者：zhangjian222200 -- 发布时间：2017/6/12 9:37:00 -- 移动页面代码，多处if语句，保存信息问题 一个网页内，有多处if语句，保存信息到表 问： 每个if语句内保存行信息，还是在执行代码末尾处，一次保存就行？
|
| -- 作者：有点色 -- 发布时间：2017/6/12 9:40:00 -- 你的if判断是什么？贴出具体代码看看。 |
| -- 作者：zhangjian222200 -- 发布时间：2017/6/12 9:46:00 -- 下面粉色代码是保存行信息的，如果都都放在最后执行保存，行不？ If drs IsNot Nothing Then \'msgbox("内部:" & 1) drs("会员编号") = drbianh drs("手机") = e.PostValues("isj") \'填写新会员手机 drs("密码") = e.PostValues("imm") \'填写新会员密码 drs("性别") = e.PostValues("sxb") \'填写新会员性别 drs("注册日期") = Date.Now \'填写新会员注册日期 drs("会员等级") = "普通会员" \'填写新会员,会员等级 drs("同意协议") = "是" \'填写新会员,同意协议 drs("邀ta次数_今日剩余") = "3" \'填写新会员,今日剩余 drs("邀ta次数_今日使用") = "0" \'填写新会员,今日使用 drs("身份证认证") = "暂未上传" \'填写新会员,身份证认证情况 drs("资料审核") = "尚待审核" \'填写新会员,资料审核 drs("学历认证") = "暂未上传" \'填写新会员,学历认证 drs("微信认证") = "暂未填写" \'填写新会员,微信认证 drs("剩余_沟通服务次数") = 0 \'填写新会员,剩余_深度服务次数 drs("照片审核") = "暂未上传" \'填写新会员,照片审核 drs("推荐人数") = 0 \'填写新会员,推荐人数 drs("资料完整度") = "尚需完善" \'填写新会员,资料完整度 drs("注册填写到") = "register" \'填写新会员,注册资料填写到什么程度 If yzyqm <> "" Then \'如果邀请码不为空,则(填写邀请次数|更改邀请人的会员等级) \'msgbox("内部:" & 2) drs("邀请码") = e.PostValues("iyqm") \'填写新会员的邀请码 \'msgbox("内部:" & 3) Dim tjrs1 As String = dryqm("推荐人数") \'定义推荐人原有推荐人数(数据转换用) Dim tjrs As Integer \'定义推荐人原有推荐人数 Integer.TryParse(tjrs1,tjrs) \'msgbox("原有推荐人数列:" & dryqm("推荐人数")) tjrs = tjrs + 1 \'msgbox("推荐人数计算后:" & tjrs) dryqm("推荐人数") = tjrs \'写入邀请人的邀请次数(注意:与刚添加的行不同) \'msgbox("推荐人数保存:" & dryqm("推荐人数")) \'msgbox("内部:" & 4) dryqm.save \'这里保存一次(因为之前测试,发现底部保存有问题,当没有推荐人的时候,保存出错,可能是因为没有推荐人时,不存在推荐人行,即dryqm所在的行) If tjrs = 2 Then \'如果推荐人数=2 \'msgbox("内部11:") dryqm("会员等级") = "中级会员" \'更改邀请人的会员等级 \'msgbox("内部22:") Dim shiycss As String = dryqm("邀ta次数_今日使用") Dim shiycs As Integer Integer.TryParse(shiycss,shiycs) \'msgbox("内部33:") dryqm("邀ta次数_今日剩余") = 9 - shiycs \'更改邀请人,免费邀请次数 \'msgbox("内部44:") dryqm.save \'这里保存一次(因为之前测试,发现底部保存有问题,当没有推荐人的时候,保存出错,可能是因为没有推荐人时,不存在推荐人行,即dryqm所在的行) End If \'msgbox("内部:" & 5) If dryqm("男女生客服_编号") <> "" Then \'将推荐人的管理人信息,填写到被推荐人所在行 If dryqm("男女生客服_接受新会员") = "是" Then \'如果推荐人,接受新会员(新会员的管理人,与推荐人的管理人相同) \'msgbox("内部:" & 6) drs("男女生客服_编号") = dryqm("男女生客服_编号") \'填写新会员,管理人员编号 drs("男女生客服_用户组") = dryqm("男女生客服_用户组") \'填写新会员,管理人员编号 ElseIf dryqm("男女生客服_接受新会员") <> "是" Then \'如果推荐人,不接受新会员(新会员的管理人,从"员工资料"表,取管理人信息并填写到"会员资料"表) If yzxb = "男" Then \'如果新会员性别是男生 \'msgbox("内部:" & 7) drsgl = DataTables("员工资料").sqlFind("接受新会员 = \'是\' and 员工_用户组 = \'男生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 drs("男女生客服_用户组") = drsgl("员工_用户组") \'填写新会员,管理人员用户组 ElseIf yzxb = "女" Then \'如果新会员性别是女生 \'msgbox("内部:" & 8) drsgl = DataTables("员工资料").sqlFind("接受新会员 = \'是\' and 员工_用户组 = \'女生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 End If End If ElseIf dryqm("男女生客服_编号") = "" Then \'推荐人有信息为空,则从"员工资料"表,取管理人信息 If yzxb = "男" Then \'如果新会员性别是男生 \'msgbox("内部:" & 9) drsgl = DataTables("员工资料").sqlFind("接受新会员 = \'是\' and 员工_用户组 = \'男生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 drs("男女生客服_用户组") = drsgl("员工_用户组") \'填写新会员,管理人员用户组 drs("男女生客服_登录名") = drsgl("员工_登录名") \'填写新会员,管理人员登录名 ElseIf yzxb = "女" Then \'如果新会员性别是女生 \'msgbox("内部:" & 10) drsgl = DataTables("员工资料").sqlFind("接受新会员 = \'是\' and 员工_用户组 = \'女生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 End If End If ElseIf yzyqm = "" Then \'如果邀请码为空,即没有推荐人(填写邀请次数|更改邀请人的会员等级) If yzxb = "男" Then \'如果新会员性别是男生 \'msgbox("内部:" & 11) drsgl = DataTables("员工资料").sqlFind("[接受新会员] = \'是\' and [员工_用户组] = \'男生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 ElseIf yzxb = "女" Then \'如果新会员性别是女生 \'msgbox("内部:" & 12) drsgl = DataTables("员工资料").sqlFind("[接受新会员] = \'是\' and [员工_用户组] = \'女生客服\'") drs("男女生客服_编号") = drsgl("员工_编号") \'填写新会员,管理人员编号 End If End If drs.save() End If
[此贴子已经被作者于2017/6/12 9:46:54编辑过]
|
| -- 作者：有点色 -- 发布时间：2017/6/12 10:05:00 -- 保存代码放在最后没问题。
如果在保存之前出错，定位你出错的代码，对应修改。 |