treo650不能编写超长短信

来源：百度知道 编辑：UC知道 时间：2024/05/24 12:09:18
以前可以用treo650编写超长短信的.最多可以到4条呢.而且可以正常发.可现在不行了，只能编写160个字符以内的.或者通过粘贴方式到3条短信内.再多就不行了:(本周四还可以呢!!请问谁知道啊!!谢谢。

Public userdwname As String
Public username As String
Public userright As String
Public conn As String

Private Sub Command1_Click()
Dim password As String
Dim respond As String
username = text1.Text
password = text2.Text
On Error GoTo err1
Adodc1.ConnectionString = conn
Adodc1.RecordSource = "select * from 用户登入 where 用户名=" & "'" & username & "'" & " and " & "密码=" & "'" & password & "'"
Adodc1.Refresh
If Adodc1.Recordset.AbsolutePosition = adPosUnknown Then
respond = MsgBox("用户名或密码错误，请重新输入！", vbOKOnly, "警告")
If respond <> vbOKOnly Then
text1.SetFocus
text1.Text = ""
text2.Text = ""
username = ""
password = ""
End If
Else
userright = Adodc1.Recordset.Fields("权限")
Unload frmLogin