现在想使用代码关联,但遇到很多问题:
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、使用代码关联如何使关联明细表不显示出来