-- 作者:youngling
-- 发布时间:2014/12/2 11:12:00
-- 向高手请教一下一个报错信息该如何改
各位高手,我是一个菜鸟,平时要带小孩,实在没有那么多时间来研究帮助文件,这个项目是以前有空的时候参考视频啊帮助文件做的,做了一半没有做好,现在想把它继续弄好,现在碰到个问题,应该是个很简单的问题,但我看了半天帮助还是没有弄好,请高手帮忙,谢谢啦。
问题描述:
点击 查询 按钮后 会报错
错误描述:
.NET Framework 版本:2.0.50727.3655 Foxtable 版本:2014.11.11.1 错误所在事件:窗口,客户录入,ValueChanged 详细错误信息: 未将对象引用设置到对象的实例。
查询按钮 click 代码如下:(论坛搜到的,我改了下)
Dim Filter ,colname ,txt As String \'定义变量 colname =e.Form.Controls("ComboBox1").Value \'定义组合框的值 txt = e.Form.Controls("TextBox2").Value \'定义文本框的值 If colname Is Nothing Then \'如果组合框的值为空 Return \'返回 End If For Each dc As Col In Tables("客户信息").Cols \'遍历表的所有列 \'\'If dc.DataCol.IsDate OrElse dc.DataCol.IsBoolean OrElse dc.DataCol.IsNumeric Then \'如果是时间列,逻辑列,数值列 \' Continue For \'排除 \'End If If dc.Name = colname Then \'如果列名和组合框的值相符 If Filter > "" Then Filter = Filter & " Or " End If Filter = Filter & "[" & dc.Name & "] Like \'*" & txt & "*\'" \'定义筛选字符串 End If \'根据控件值迷糊筛选 Next Tables("客户信息").Filter = Filter \'将数据筛选出来
valuechanged 代码如下:
Dim djijl As WinForm.TextBox = e.Form.Controls("第几条记录") Dim gjtjl As WinForm.TextBox = e.Form.Controls("共几条记录")
With Tables("客户信息") If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改 gjtjl.value ="共"& .Rows.Count & "条记录" djijl.value ="目前是第" & .position + 1 & "条记录" End If End With
要求解决的问题:
1. 如何改下代码,消去这个错误代码
2. 如何写代码实现 取消查询状态,返回浏览状态。(也就是如果查询结果是一个数据,点击 上一个,下一个按钮会失效,如何可以继续浏览呢)
其实应该是很简单的,但我就是不知道该上哪儿找的帮助文件,谢谢各位高手啦。 此主题相关图片如下:报错1.jpg
[此贴子已经被作者于2014-12-2 14:42:00编辑过]
|