大红袍老师，麻烦看下电脑IP列为什么没有输入进数据呢，msgbox(IP)得出来数据
Dim zcm As String = EncryptText(ComputerId,"***","***")
Dim IP As String = functions.Execute("获取外部ip")
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText ="Select Count(系统编号) Fr om {主机审核} Where 系统编号 = '" & ComputerId & "' and 注册码 = '" & zcm & "'"
cmd.CommandText = "Select [_Identify],电脑IP,系统编号 Fr om {主机审核} Where 系统编号 = '" & ComputerId & "'"
dt = cmd.ExecuteReader(True) '记得将参数设置为True
If cmd.ExecuteScalar > 0 Then
msgbox("系统已注册")
For Each dr As DataRow In dt.DataRows
dr("电脑IP") = ip
msgbox(ip)
Next
dt.Save()
Else
msgbox("系统未注册,请先注册,然后联系管理员审核")
End If
加好友 
发短信
Post By：2016/8/22 17:35:00 [只看该作者]
