Dim strArray As String() = Clipboard.GetText().TrimEnd(New Char() {vbCr, vbLf}).Split(New Char() {CurrentTable.grid.ClipSeparators(1)})
Dim selection = CurrentTable.grid.Selection
Dim num5 As Integer = strArray.Length - 1
For i As Integer = 0 To num5
Dim num3 = selection.TopRow + i
If num3 > CurrentTable.grid.Rows.Count - 1 Then
Return Nothing
End If
Dim strArray2 As String() = strArray(i).Split(New Char() {CurrentTable.grid.ClipSeparators(0)})
Dim num As Integer = selection.LeftCol - 1
Dim num6 As Integer = strArray2.Length - 1
For j As Integer = 0 To num6
num+=1
Do While (True)
If num > (CurrentTable.grid.Cols.Count - 1) Then
Exit Do
End If
If (CurrentTable.grid.Cols(num).Visible) Then
Exit Do
End If
num+=1
Loop
CurrentTable.grid(num3, num) = strArray2(j).Trim(new Char() { " ", chr(10), chr(13) })
Next
Next
加好友 
发短信
Post By：2018/6/28 8:41:00 [显示全部帖子]
