主题：[求助]再帮看一个错误提示

 信息量不够。

 你有一列 A4，是逻辑类型的？对应的你在窗口里用什么控件来赋值？值又是什么？

 猜一下，你看红色代码，改成你对应的提示值。

Dim t As Table = e.Form.Controls("基层法律服务人员信息表").Table
For Each c As Col In t.Cols
    If c.Name = "A4" Then
        t.Current(c.Name) = (e.Form.Controls(ctl.Name).Value = "是")
    Else
        For Each ctl As WinForm.Control In e.Form.Controls
            If ctl.Name.Contains(c.Name) Then
                Select ctl.Gettype.Name
                    Case "textbox","combobox","DateTimePicker"
                        t.Current(c.Name) = e.Form.Controls(ctl.Name).Value
                End Select
            End If
        Next
    End If
Next
e.Form.Controls("基层法律服务人员信息表").Table.DataTable.Save

 你说的是这个控件的值是不需要的？

 那么你看看这个控件的name是什么，看能否改一下，改成不同的，使这句代码不通过就行了 If ctl.Name.Contains(c.Name) Then

 也就是说控件的名字 不能包含列的名字，这样才能排除。

呃，你用msgbox弹出一下两个值，看是哪两个名字出的错

               Select ctl.Gettype.Name
                    Case "textbox","combobox","DateTimePicker"

                        msgbox(c.Name & " " & ctl.Name)
                        t.Current(c.Name) = e.Form.Controls(ctl.Name).Value
                End Select

 最好是改一下你的这个控件的名字 【选择纸张】

 你的列里面，肯定有一个叫做 纸张、选择、择纸... 类似列名

这个简单吧？直接这样写

If Tables("xxx").FindRow("选择 = true", 0, False) > -1 Then

    '删除

End If