表与表之间怎么建立索引？

还有如何将A表中有两列数据生成相应的数组放入B表呢？

比如

A表有[年级]和[班级数]两列

我想B表【班级】这一列能根据A表的[年级]和[班级数]自动生成【班级】的数据（1-1班1-2班1-3班2-1班2-2班2-4班）要怎么弄啊

参考代码

For Each r As Row In Tables("表A").Rows
    For i As Integer = 1 To r("班级数")
        Dim nr As Row = Tables("表B").AddNew
        nr("班号") = r("年级") & "-" & i & "班"
    Next
Next

谢谢~

但是这样不能实现这两歌表之间数据的动态更新啊

dataColChanged事件

If e.DataCol.name = "班级数" Then
    DataTables("表B").DeleteFor("班号 Like \'" & e.DataRow("年级") & "-" & "%\'")
    For i As Integer = 1 To e.dataRow("班级数")
        Dim str As String = e.DataRow("年级") & "-" & i & "班"
        \'Dim fdr As DataRow = DataTables("表B").find("班号 = \'" & str & "\'")
        \'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("表B").AddNew
        nr("班号") = str
        \'Next
    Next
End If

你好

表A有[学号】和【姓名】两列

表B也有[学号】和【姓名】两列

怎样让两个表对应记录的【学号】和【姓名】一模一样啊？

而且表A[学号】和【姓名】两列是唯一的

但是表B也有[学号】和【姓名】两列是有重复的

dataColChanged事件

If e.DataCol.name = "班级数" Then
    DataTables("表B").DeleteFor("班号 Like \'" & e.DataRow("年级") & "-" & "%\'")
    For i As Integer = 1 To e.dataRow("班级数")
        Dim str As String = e.DataRow("年级") & "-" & i & "班"
        \'Dim fdr As DataRow = DataTables("表B").find("班号 = \'" & str & "\'")
        \'If fdr IsNot Nothing Then
        Dim nr As DataRow = DataTables("表B").AddNew
        nr("班号") = str
        \'Next
    Next
我试过这个代码很好，但是从表Ｂ１１行增加起，前面空１０行呢

嗯谢谢

是直接再表后面加记录

不理解你的意思，做个例子发上来，说明你要做什么。