| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 筛选时 弹出 未将对象引用设置到对象的实例"怎么解决 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=99119) |
| -- 作者：wakai -- 发布时间：2017/4/13 0:24:00 -- 筛选时 弹出 未将对象引用设置到对象的实例"怎么解决 窗体筛选按钮，表绑为副本时，记录为空时弹出"未将对象引用设置到对象的实例" 请问什么原因怎么修改 Dim Filter As String Filter = "文案状态 not like \'合格\'" With e.Form.Controls("项目名称") If .Value IsNot Nothing Then Filter ="项目名称 Like \'%" & .Value & "%\'" End If End With With e.Form.Controls("品牌") If .Value IsNot Nothing Then If Filter > "" Then Filter = Filter & " And " End If Filter = Filter & "品牌 = \'" & .Value & "\'" End If End With If Filter > "" Then Tables("产品文案修改二_产品开发表").Filter = Filter End If
|
| -- 作者：wakai -- 发布时间：2017/4/13 0:34:00 -- 在CurrentChanged事件中设置了以下代码，提示是这个出错 Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("产品开发表").FindRow(dr) If wz >=0 Then Tables("产品开发表").Position = wz End If |
| -- 作者：有点色 -- 发布时间：2017/4/13 1:24:00 -- 改一下代码
If e.Table.Current Is Nothing Then Return
Dim dr As DataRow = e.Table.Current.DataRow
Dim wz As Integer = Tables("产品开发表").FindRow(dr)
If wz >=0 Then
Tables("产品开发表").Position = wz
End If |
| -- 作者：wakai -- 发布时间：2017/4/13 12:40:00 -- 可以了，谢谢老师 |