窗口 录入 供应商名字 1. 如果此应商已经录入 ,则在自动定位到已录入的供应商列;
2. 如果此供应商没有录入 ,如果不存在此供应商,增加一行录入此供应商;
个人用的dorpdownbox控件录入供应商,并且绑定到 供应商表 的 供应商名称列
代码分别 leave 和 Valuechanged 事件中测试过 实现不了我的要求
代码如下
Dim de As String
With Forms("供应商编辑").Controls("txname1")
If .Value IsNot Nothing Then
de = .Value
With CurrentTable
Dim r As Integer
r = .FindRow("[供应商ID] = 'de'", 0, True ) '从第一行行开始查找
If r >= 0 Then '如果找到的话
Tables("供应商表").Current.Delete
.Position = r '定位到找到的行.
Else
.Position = .Rows.Count - 1 '定位到最后一行
End If
End With
End If
End With