标题：加载的问题

1楼

hejfen 发表于：2009/6/5 20:47:00

表A的第一列和表B的第一列关联，我想打开项目后，只加载表A的数据，表B的数年据不加载，如果我想在选择了父表的记录后，自动加载子表的关联记录，要怎么做啊？

[此贴子已经被作者于2009-6-5 20:52:31编辑过]

2楼

woodiy 发表于：2009/6/5 20:57:00

我也想知道啊！

3楼

yangming 发表于：2009/6/5 20:59:00

例如，加载产品为PD01的订单：

With DataTables("订单")
.LoadFilter = "[产品] = 'PD01'"
.Load()
End With

GetChildRows返回一个集合，这个集合包括子表中全部对应的关联行。
假定产品表和订单表之间通过产品编号建立了关联，下面的代码获得第一个产品的全部订单：

Dim drs As List(Of Datarow)
drs = DataTables("产品").DataRows(0).GetChildRows("订单")

[此贴子已经被作者于2009-6-5 21:04:19编辑过]

4楼

hejfen 发表于：2009/6/5 23:15:00

With DataTables("订单")
.LoadFilter = "[产品] = 'PD01'"
.Load()
End With
是用于内部表的吗？外部表也可用吗？

5楼

银狐发表于：2009/6/5 23:31:00

一样,只是事件不一样
对于内部表，请参考事件：BeforeLoadInnerTable
对于外部表，请参考事件：BeforeLoadOuterTable

6楼

hejfen 发表于：2009/6/5 23:34:00

我在表属性的CurrentChanged处加以下代码
dim dr as datarow = DataTables("表A").DataRows(0)
With DataTables("表B")
.LoadFilter = "[第一列] = '" & dr("第一列") & "'"
.Load()
End With
为什么会出错？

7楼

八婺发表于：2009/6/5 23:44:00

PositionChanged事件:

Dim dr As Row = CurrentTable.Current
With DataTables("表B")
.LoadFilter = "[第一列] = '" & dr("第一列") & "'"
.Load()
End With

共7 条记录, 每页显示 10 条, 页签: [1]