为了将一个表格中指定列或全部列内容相同的行加以删除，只保留其中一行，在tables（“名称货号单价”）的datacolchanging事件中编制代码如下：

代码1

Select Case e.DataCol.Name
    Case "货号" 
        Dim dr As DataRow = e.DataTable.find("[货号] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then
            dr.delete()
            Return
        End If
End Select

当把这个表格整体复制后粘贴回原表格时，

结果只是删除了"货号"列相同的内容，其他列的内容一点没动

而货号列有内容的行其他列却是空的

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:作业求助.table

Select Case e.DataCol.Name
    Case "货号"
        "DataTables("名称货号单价").DeleteFor("[货号] = \'" & e.NewValue & "\'  And _Identify <> " & e.DataRow("_Identify") )
End Select

首先要感谢

Case "尺码号","细类","男式女式","品类"
        Dim dr3 As DataRow = DataTables("尺码对照表").Find("[尺码号] = \'" & e.DataRow("尺码号") & _
 "\' AndAlso [品类] = \'"  & e.DataRow("品类")  & "\' AndAlso [细类] = \'"  & e.DataRow("细类") & _
"\' AndAlso [男式女式] = \'"  & e.DataRow("男式女式") & "\'" )
        If dr3 IsNot Nothing Then
            e.DataRow("尺码") = dr3("尺码")
        End If

以上代码执行后显示如下错误，能不能指点一下是怎么回事？ 不明白操作数是怎么回事。

.NET Framework 版本：2.0.50727.3643
Foxtable 版本：2012.11.28.1
错误所在事件：表，产品表，DataColChanged
详细错误信息：
System.Reflection.TargetInvocationException: 调用的目标发生了异常。 ---> System.Data.SyntaxErrorException: 语法错误:“AndAlso”运算符后缺少操作数。
   在 System.Data.ExpressionParser.Parse()
   在 System.Data.DataExpression..ctor(DataTable table, String expression, Type type)
   在 System.Data.Select..ctor(DataTable table, String filterExpression, String sort, DataViewRowState recordStates)
   在 System.Data.DataTable.Select(String filterExpression, String sort)
   在 Foxtable.DataTable.Find(String O0OO100O01011Ol1, String O0lO, Int32 Oll0l)
   在 UserCode.DataColChanged(DataColEventArgs e)
   --- 内部异常堆栈跟踪的结尾 ---
   在 System.RuntimeMethodHandle._InvokeMethodFast(Object target, Object[] arguments, SignatureStruct& sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.RuntimeMethodHandle.InvokeMethodFast(Object target, Object[] arguments, Signature sig, MethodAttributes methodAttributes, RuntimeTypeHandle typeOwner)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture, Boolean skipVisibilityChecks)
   在 System.Reflection.RuntimeMethodInfo.Invoke(Object obj, BindingFlags invokeAttr, Binder binder, Object[] parameters, CultureInfo culture)
   在 Foxtable.DataTable.O1100l0O01l110O0l00Oll11(Object O0l0O0, DataColumnChangeEventArgs O)