下面粉色代码是保存行信息的，如果都都放在最后执行保存，行不？
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编辑过]
加好友 
发短信
Post By：2017/6/12 9:37:00 [显示全部帖子]
