如何自动增加

小何

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

eio

旧贴有，我问过！建议不要这样，得不偿失！

wewyhy

这个方法我常用，不知合不合你的意思，新的提单号必须在主窗体中输入一个记录

小何

这个我可用，但是我不知道是怎么搞才会这样啊，我看了你的例子，就是看不出明白。能说一下吗

阿罗

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

小何

我还是不大明白，能帮我我还是看不懂啊

sea.er

？

[此贴子已经被作者于2003-8-1 20:09:30编辑过]

wewyhy

因为我没用一句代码，所以不大容易看懂，知道后就简单了。
子窗体的“链接子字段”设为“提单号码”就可以了。在建立子窗体时向导的第三步既可设定。
列表框选择也用向导即可，第一步选第三项，第二步选“提单号码”，然后既完成，再然后修改列表框的行来源属性，在弹出的查询生成器中设总计函数，“提单号码”设为“Group By”，“NO”设为“First”（也可为其他，如Last等）