如何自动增加

小何

我想在子窗体中第一行输入提单号码后，从第二行开始，提单号码就不要手工输入，系统能将第一行的提单号码直接粘贴下来。
不知这个怎么实现啊？
最好能给个例子给我，我在此先谢谢各位朋友了！

阿罗

假定第一行提单号码的文本框名称是 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的鼠标双击事件当中。