主题：怎么样用fill 只填充被选中的行？

看看：

http://www.foxtable.com/help/topics/1533.htm

http://www.foxtable.com/help/topics/1597.htm

Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
With Tables("来源表")
    If .TopPosition > -1 Then '如果选定区域包括数据行
        For i As Integer = .TopPosition To .BottomPosition
            Dim r As Row = .Rows(i)
            Dim dr As DataRow = DataTables("接收表").AddNew()
            For n As Integer = 0 To cols1.Length - 1
                dr(Cols2(n)) = r(Cols1(n))
            Next
        Next
    End If
End With