达人帮忙，关于发送接收多条数据。

Question

服务端：
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.SendData (MSHFlexGrid1.TextMatrix(1, 2) & "," & MSHFlexGrid1.TextMatrix(1, 3))
~~以上只是把服务端的MSHFlexGrid1里第1行数据的2列3列的数据发送到客户端并且成功。服务端的MSHFlexGrid1里并不是只有以上1行数据，有N行数据（而这里的数据是可在服务端随时添加删除的）。怎么把MSHFlexGrid1里所有行的2列3列里的信息发送到客户端并使客户端按行解读出来？
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim v As Variant
Winsock1.GetData strData, vbString
v = Split(strData, ",")
Adodc2.Recordset.ActiveConnection.Execute "Insert Into ClientData(" & Adodc2.Recordset.Fields(0).Name & "," & Adodc2.Recordset.Fields(1).Name & ") Values ('" & v(0) & "' , '" & v(1) & "')"
~~以上是服务端将客户端发送的数据插入数据库并且成功。
End Sub客户端：
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim strData As String
Dim file As String
Dim CRC As String
Dim v As Variant
Winsock1.GetData strData, vbString '按照字符串类型接收信息
v = Split(strData, ",")
file = v(0) '获得MSHFlexGrid1.TextMatrix(1, 2)内容
CRC = v(1)  '获得MSHFlexGrid1.TextMatrix(1, 3)内容
Winsock1.SendData (Winsock1.LocalHostName & "," & file & "," & CRC)
~~以上只是将获得的服务端的第1行数据的2列3列的数据发送到服务端的MSHFlexGrid2并且成功。怎么把服务端MSHFlexGrid1里所有行的2列3列里的信息接收到并使客户端按行解读并按行发送到服务端的MSHFlexGrid2里？
End Sub最后给下详细代码，麻烦了。

Answer 1

哪来那么多时间写代码啊给你思路.要哪些数据,就自己先提取出来,放到一个结构中,并作为封包的一部分发过去.比如:type MyType
    mX as long  '记录行
    mY as long  '记录列
    mData as string    '数据内容
end type再声明一个这种类型的数组,把你的数据放在这数据里面,发到对方那里,再还原并显示.

Answer 2

既然两列之间知道用逗号(",")分割，那么就应该可以想到多行之间使用换行符(vbCrLf)

Answer 3

程序已经给你解决了，不只是表格控件的代码问题，而是winsock控件的原理问题。怎么给你呀？在不？