http://www.foxtable.com/help/topics/2490.htm
http://www.foxtable.com/help/topics/2292.htm
你只是复制一行数据,可以直接在签到按钮后加一段代码:
Dim nma()As String ={“学员姓名","授课内容","签到时间","签到次数"}'A表数据来源列
Dim nmb() As String = {"学员姓名","上课内容","上课时间","节数"} 'B表数据接收列
Dim dr1 As Row = Tables("钢琴课时统计表").Current
Dim dr2 As Row = Tables("学员上课记录表").AddNew
For i As Integer = 0 To nma.Length - 1
dr2(nmb(i)) = dr1(nma(i))
Next