请问，列表框如何同主窗体同步

简

我的主窗体在加载事件中 DoCmd.GoToRecord , , acLast，我希望这时列表框也自动选中最后一条记录，即显示黑杠杠，这时代码该怎么写呢，我用Me.lb0.Value = Me.CurrentRecord - 1，但运行中出错，说是添加编辑状态中不能更新。

另外，我还希望添加了新记录，保存后列表框马上显示并定位选中在这条记录上，编辑好记录后，主窗体不返回到第一条记录上，而是直接显示这条修改的记录，列表框也选中在这条修改的记录上，请问代码应该怎么写呢。

aslxt

第一个问题：
Me.List0.Selected(List0.ListCount - 1) = True'List0是列表框的名称

todaynew

dim n as long
n = Me.产品ID.ListRows - 1
Me.某列表框.Value = Me.某列表框.Column(0, n)

简

todaynew 发表于 2011-2-23 21:53
dim n as long
n = Me.产品ID.ListRows - 1
Me.某列表框.Value = Me.某列表框.Column(0, n)

这段代码我没有看懂，其功能是啥呢。

现在我已解决当列表框选条上下移动时，主窗体能同步显示；
但是当主窗体用Pageup和PageDown翻动时，列表框又如何同步显示选中的记录呢。

todaynew

简 发表于 2011-2-24 12:54
这段代码我没有看懂，其功能是啥呢。

现在我已解决当列表框选条上下移动时，主窗体能同步显示；

把以上代码放到主窗体的成为当前事件中试试。

代码功能是将列表框中二维表的第n行，第0列（0列一般情况下为绑定字段）的值赋值给列表框，这样就选中了，二楼的方法也是可以的，原理大体相当（不同的是用二楼的方法，并不一定能得到需要的值，因为列表框有多选问题存在）。