输出所有代码，看哪里加入了msgbox等代码

http://www.foxtable.com/webhelp/scr/1987.htm

菜单->杂项->工具->输出代码，输出整个项目的代码。

项目事件

计划管理

表事件

窗口表事件

窗口与控件事件

窗口1_Button1_Click

Dim client = vars("client1")

If client IsNot Nothing Then

    client.receiveThread.Abort()

    client.nStream.Close()

End If

vars("client1") = new MyClient(e.Form.Controls("txtip").text, e.Form.Controls("txtport").text)

窗口1_Button2_Click

Dim client = vars("client1")

If client IsNot Nothing Then

    client.receiveThread.Abort()

    client.nStream.Close()

End If

窗口1_Button3_Click

Dim client = vars("client1")

Dim msg As String = e.Form.Controls("TextBox3").text

Dim stream() As Byte = Encoding.default.GetBytes(msg)

client.nStream.Write(stream, 0, stream.Length)   \'往服务器发送登录信息

自定义函数

全局代码

Default

Public socket As MyClient

Public Class MyClient

    Public receiveThread As System.Threading.Thread

    Public nStream As System.Net.Sockets.NetworkStream

    Public tcp As  System.Net.Sockets.TcpClient

    Public Sub New(ByVal ip As String, ByVal port As Integer)

        Dim server As System.Net.IPAddress = System.Net.IPAddress.Parse(ip)

        tcp = New System.Net.Sockets.TcpClient()

        Try

            tcp.Connect(ip, port)

        Catch generatedExceptionName As Exception

            tcp = Nothing

        End Try

        If tcp Is Nothing Then

            MsgBox("无法连接服务器,请重试")

        Else

            Dim netStream As System.Net.Sockets.NetworkStream = tcp.GetStream()

                nStream = netStream

                receiveThread = New System.Threading.Thread(New System.Threading.ThreadStart(AddressOf ReceiveMsg))

receiveThread.IsBackground=True

                receiveThread.Start()

            msgbox("登录成功")

        End If

    End Sub

    Private Sub ReceiveMsg()

        While True

            Dim packet As Byte() = New Byte(1024) {}

            nStream.Read(packet, 0, packet.Length)

            Dim str As String = Encoding.Default.GetString(packet)

        Tables("表A").Current("第一列") = str

        Tables("表A").Position = Tables("表A").Position + 1

        Tables("表A").AddNew()

            Dim txt = forms("窗口1").Controls("TextBox2")

            txt.Text &= iif(txt.text > "", vbcrlf, "") & str

        End While

    End Sub

End Class

菜单事件

你把项目的bin文件夹删除，重新打开姓名测试。

如果还有问题，把你做的项目发上来测试。

测试了一下，没办法处理。这个是foxtable本身的问题，和你写的代码无关，控制不了。

如果你要处理，需要变通一下addnew。也就是接收到信息的时候，不addnew，而是把值添加到一个集合里面。然后做一个计时器，循环取出集合里面的信息，然后addnew。