Office中国论坛/Access中国论坛

标题: 如何自动增加 [打印本页]

作者: 小何 时间: 2003-8-1 01:48
标题: 如何自动增加
我想在子窗体中第一行输入提单号码后，从第二行开始，提单号码就不要手工输入，系统能将第一行的提单号码直接粘贴下来。
不知这个怎么实现啊？
最好能给个例子给我，我在此先谢谢各位朋友了！

作者: 阿罗 时间: 2003-8-1 18:30
假定第一行提单号码的文本框名称是 txtBLnum, 你需要自动输入的文本框名称是 txtBLcopy, 那么，在txtBLcopy的setFocus(获得焦点事件)事件中，这么写

If IsNull(txtBLcopy.Value) Then
   txtBLcopy.Text = txtBLnum.Value
Else
   Exit Sub
End If

或者，你希望第一行提单号码输入后，其他所有需要自动输入的地方都填入这个提单号码，那么，在txtBLnum的失去焦点事件中，加入下面代码（假定这些需要自动填写的文本框名称是txt1, txt2, txt3）

Private Sub txtBLnum_LostFocus()
Dim txtToCopy As New Collection
Dim myObject As Object
txtToCopy.Add txt1
txtToCopy.Add txt2
txtToCopy.Add txt3
For Each myObject In txtToCopy
   If IsNull(myObject.Value) then
            myObject.Value = txtBLnum.Value
   End If
Next
End Sub

再进一步，如果你希望在第一行提单的文本框里面用鼠标双击，才自动填写，那么就把上面的代码放到txtBLnum的鼠标双击事件当中。

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)