主题：向高手请教一下一个报错信息该如何改

ValueChanged事件

 

Dim djijl As WinForm.TextBox = e.Form.Controls("第几条记录")
Dim gjtjl As  WinForm.TextBox = e.Form.Controls("共几条记录")

With Tables("客户信息")
    If .Current IsNot Nothing AndAlso .Current.DataRow.RowState = DataRowState.Unchanged Then '如果当前行未曾修改
        gjtjl.value ="共"& .Rows.Count  & "条记录"
        djijl.value ="目前是第" & .position + 1 & "条记录"
    End If
End With

 第二个问题，你直接控制各个控件的Enabled属性即可啊。

Filter = Filter  & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'"    '定义筛选字符串

Dim Filter ,colname ,txt As String    '定义变量

colname =e.Form.Controls("查询类型").Value   '定义组合框的值
txt  = e.Form.Controls("输入查询内容").Value    '定义文本框的值
If colname  Is Nothing Then    '如果组合框的值为空
    Return   '返回
End If
For Each dc As Col In Tables("客户信息").Cols '遍历表的所有列
    If dc.Name = colname Then   '如果列名和组合框的值相符
        If Filter > "" Then      
            Filter  = Filter & " Or "
        End If
        Filter = Filter  & "Convert([" & dc.Name & "], 'System.String') Like '*" & txt & "*'"    '定义筛选字符串
    End If  '根据控件值迷糊筛选
Next
Tables("客户信息").Filter = Filter  '将数据筛选出来

 不会做，就上传具体例子说明。