现在想使用代码关联，但遇到很多问题：

If Relations.Contains("PP") Then
    Relations.Delete("PP")\'\'\'\'删除关联表
End If
Relations.Add("PP", DataTables("凭证").DataCols("凭证编码"), DataTables("凭证明细").DataCols("凭证编码"), True, RelationPathEnum.Both)
Dim re As Relation = Relations("PP")\'\'\'\'定义关联表
re.CascadeDelete = True
re.CascadeUpdate = True
Dim par As String = Re.ParentTable.Name\'\'\'\'\'\'定义主表
Dim chi As String = Re.ChildTable.Name\'\'\'\'\'\'定义子表名称
Dim pc As String = par & "." & chi
\'\'\'\'\'\'\'\'\'\'\'\'\'\'定义关联表、主表、子表名称

1、使用Tables("凭证_Table1").DataSource = DataTables(PC)\'\'\'\'\'\'动态绑定表时，打开窗口时提示没有：“凭证.凭证明细”的表

2、使用Tables("凭证_Table1").DataSource = DataTables(CHI)‘’‘’‘’‘’动态绑定后，在录入窗口选定的行，与明细表选定的行不一致，造成删除选定行时，删了其他行；另外选定指定列求差额时，出现没有选定列的情况，这些应该是选定位的问题。

3、使用代码关联如何使关联明细表不显示出来

此主题相关图片如下：qq截图20230605174208.png

关联表显示出来了