Dim dr As DataRow
Dim zhanghao As String = e.Form.Controls("textbox1").Value
If zhanghao = Nothing Then
MessageBox.Show("请输入您的登录账号!", "错误提示!",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Cancel = True
Else
DataTables("login").LoadFilter= "[登陆账号] = '" & zhanghao & "'"
DataTables("login").Load
dr = DataTables("login").Find("[登陆账号] = '" & zhanghao & "'")
If dr Is Nothing Then
Messagebox.show("登陆账号不对!","错误提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
e.Sender.Text=""
e.Cancel = True
Else
e.Form.Controls("textbox2").value=dr("登陆名")
End If
End If
这段代码用sql语句怎么写
加好友 
发短信
Post By：2014/8/26 10:53:00 [只看该作者]
