- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]追加数据错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70856)
-- 发布时间：2015/6/30 11:41:00
-- [求助]追加数据错误
此主题相关图片如下：qq截图20150630113415.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
-- 发布时间：2015/6/30 11:52:00
--
e.Sender.SelectedItem 你绑定的数据表? 追加的行 可能没有同步赋值Datarow 所以你的 e.Sender.SelectedItem 并不是一个Datarow 所以报错. 你调试检查一下看看
-- 发布时间：2015/6/30 12:07:00
--
r = .FindRow("列名 = \'" & e.Sender.Text & "\'")\'从 第一行开始查找
-- 发布时间：2015/6/30 12:25:00
--
谢谢老师，我试了以下，改好了