Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim UserId As String
UserId = e.Cookies("userid")
Dim xingming As String
Dim sfz As String
If e.PostValues.ContainsKey("xingming") AndAlso e.PostValues.ContainsKey("sfz") Then
xingming = e.PostValues("xingming")
sfz = e.PostValues("sfz")
End If
If sfz > "" Then
MessageBox.Show("1")
Dim cmd As new SQLCommand
MessageBox.Show("2")
cmd.C
MessageBox.Show("3")
cmd.CommandText = "SE LECT * FROM {员工花名册} WHERE 身份证号 = '" & sfz & "'"
MessageBox.Show("4")
cmd.Parameters.Add("@身份证号",sfz)
MessageBox.Show("5") 这里提示，之后就报错
Dim dt As DataTable = cmd.ExecuteReader(True)
MessageBox.Show("6") 这里不提示
If dt.DataRows.Count > 0 Then
Dim drc9 As DataRow = dt.DataRows(0)
If drc9("姓名") = xingming AndAlso drc9.IsNull("企业微信号ID") Then
drc9("企业微信号ID") = userid
dt.Save
e.WriteString("<meta http-equiv='Refresh' c>")
e.Handled = True
Return Nothing
ElseIf drc9.IsNull("企业微信号ID") = False Then
e.WriteString(drc9("姓名") & "的企业微信号已占用,请联系公司人力资源部进行核对!")
e.Handled = True
Return Nothing
End If
End If
MessageBox.Show("报错3")
End If
wb.AddPageTitle("","pageheader","薪酬管理平台",Vars("dwmc"))
If e.PostValues.ContainsKey("xingming") AndAlso e.PostValues.ContainsKey("sfz") Then
wb.AddTopTips("","toptip2","无授权信息,请与公司人力资源管理部门核对!").msec = 2000 '
End If
wb.AddForm("","form1","Remuneration3")
With wb.AddInputGroup("form1","ipg1")
.AddInput("xingming","姓名:","text")
.AddInput("sfz","身份证号:","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "实名认证", "submit")
End With
wb.AddToast("","t3", "初次使用,请进行实名认证",0).msec= 1000
e.WriteString(wb.Build) '生成网页
e.Handled = True
[此贴子已经被作者于2020/4/20 22:46:54编辑过]
加好友 
发短信
Post By：2020/4/20 22:21:00 [只看该作者]
