Dim str1 As String = e.form.Controls("TextBox1").Text
Dim str2 As String = e.form.Controls("TextBox2").Text
Dim dr As DataRow = DataTables("user").SqlFind("name = '" & user.name & "'")
If dr Is Nothing Then
msgbox("没有找到对应的行")
Else
msgbox(dr("config") & vbcrlf & MD5Encrypt(str1))
If dr("config").Contains(MD5Encrypt(str1)) Then
dr("config").Replace(MD5Encrypt(str1), MD5Encrypt(str2))
msgbox(dr("config") & vbcrlf & MD5Encrypt(str1) & vbcrlf & MD5Encrypt(str2))
dr.save
msgbox("修改成功")
End If
End If