If Relations.Contains("HR_人事档案_个人档案") = False Then
Dim ParentCol As DataCol = DataTables("HR_人事档案").DataCols("WorkID")
Dim ChildCol As DataCol = DataTables("HR_个人档案").DataCols("WorkID")
Relations.Add("HR_人事档案_个人档案",ParentCol,ChildCol,False,RelationPathEnum.One)
End If
If Tables.Contains("HR_人事档案.HR_个人档案") Then
Dim tbl As WinForm.Table
tbl = e.Form.CreateTable("Table1", "HR_人事档案.HR_个人档案", False)
tbl.Dock = System.Windows.Forms.DockStyle.Fill
Dim sp1 As WinForm.SplitContainer = e.Form.Controls("SplitContainer1")
sp1.Panel2.AddControl(tbl)
Else
MessageBox.Show("没有个人档案表")
End If
窗口里创建的关联表是个大大的红×
加好友 
发短信
Post By：2016/6/17 15:41:00 [显示全部帖子]
