此主题相关图片如下:1.jpg
各位高人,请帮我看看问题出在哪里,我找了很久没找出原因:
Dim t As Table = Tables("关联名称档")
For Each r As Row In t.Rows
If r IsNot Nothing Then
Dim pt As Boolean =Tables.Contains(r("父表名称"))
Dim ct As Boolean =Tables.Contains(r("子表名称"))
If pt=True And ct=True Then
Dim t1 As DataTable = DataTables(r("父表名称"))
Dim t2 As DataTable = DataTables(r("子表名称"))
If Relations.Contains(r("关联名称"))=True Then
messagebox.show("名称为:[" & r("关联名称") & "]的关联已经存在,不能重复建立!")
Else
Dim pc() As String = r("父表关联字段").split(",")
Dim cc() As String = r("子表关联字段").split(",")
Dim pcs(pc.length) As DataCol
Dim ccs(cc.length) As DataCol
If pc.length>0 Then
For i As Integer =0 To pc.length-1
pcs(i)=t1.datacols(pc(i))
ccs(i)=t2.datacols(cc(i))
Next
End If
Relations.add(r("关联名称"),pcs,ccs)
End If
End If
End If
Next
此主题相关图片如下:2.jpg