主题：[求助]

求助各位大师：开发版与商业版的代码是不是完全兼容？论坛示例“内部通讯”移到开发版后未读消息双击打不开。请指点。谢谢！

If e.Form.Controls("TextBox1").Value = Nothing Then
    Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
    If lst.SelectedIndex >=0 Then
        Dim s As String = lst.SelectedItem
        e.Form.Controls("用户名").Text = s.Remove(s.IndexOf("("))  '删除"("之后的字符
    End If
Else
    Dim lst As WinForm.ListBox = e.Form.Controls("ListBox1")
    If lst.SelectedIndex >=0 Then
        Dim s As String = lst.SelectedItem
        If s.Remove(s.IndexOf("("))  <> e.Form.Controls("用户名").Text Then
            If MessageBox.Show("该操作会清空聊天记录,是否继续?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
                e.Form.Controls("TextBox1").Value = Nothing
                e.Form.Controls("TextBox3").Value = Nothing
                e.Form.Controls("用户名").Text = s.Remove(s.IndexOf("("))  '删除"("之后的字符
            End If
        End If
    End If
End If