主题：关于下拉窗体

1、可以在datacolchanging事件，写代码判断和取消输入啊

2、你也可以在双击的时候，判断是否符合，然后控制是否录入啊

你就不能在你给表格赋值之前判断一下？如果不满足，就不要赋值？

这个意思？

If e.Selected Then
    If  e.form.DropTable IsNot Nothing AndAlso e.form.DropTable.Name = "客户资料"
        Dim tbl As Table = Tables("流量卡选择窗体_Table1")
        Dim tbl1 As Table = Tables("客户资料")
        Dim Result As DialogResult
        Dim sr As Row = tbl.Current
        If  tbl.current("流量卡状态") = "废卡" Then
            msgbox("该流量卡是废卡不能绑定客户")
            '            tbl1.Current("流量卡ID")= tbl1.Current.DataRow.OriginalValue("流量卡ID")
            e.Form.DropDownBox.Value = Nothing
            Return
        Else
            e.Form.DropDownBox.Value = tbl.Current("流量卡ID")
            tbl1.Current("流量卡ID")=tbl.Current("流量卡ID")
            tbl1.Current("流量卡号")=tbl.Current("流量卡号")
        End If
    End If
End If
If e.Form.DropTable IsNot Nothing Then '如果是通过表下拉的
    e.Form.DropTable.FinishEditing()
ElseIf e.Form.DropDownBox.BindingField > "" '如果是通过窗口下拉的
    e.Form.DropDownBox.WriteValue()
End If

参考

http://www.foxtable.com/webhelp/topics/2643.htm

或者

            e.Form.DropDownBox.Value = tbl1.Current.DataRow.OriginalValue("流量卡ID")

不理解你什么意思。为什么要保存，如果还原了数据，就不需要保存啊。