![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/jpg.gif)
此主题相关图片如下:qq截图20150630113415.jpg
![dvubb 图片点击可在新窗口打开查看](UploadFile/2015-6/201563011403141732.jpg)
各位老师,请问我在listbox的selectedindexchangged中写了如下代码,结果却在新增行的时候出现了截图的问题
With Tables("审核计划")
Dim r As Integer
r = .FindRow(e.Sender.SelectedItem)'从 第一行开始查找
If r >= 0 Then '如果找到的话
.Position = r '定位到找到的行.
End If
End With
forms("审核计划").open
If forms("审核计划").opened Then
Tables("审核计划").AllowEdit=True
End If