如何记录TEXTBOX上次输入的数据

地主老财

Private Sub CommandButton1_Click()
Dim i As Long
For i = 1 To 2
If Me.Controls("TextBox" & i).Text = "" Then MsgBox Me.Controls("Label" & i).Caption & "不得为空！": Exit Sub
Next i
If TextBox4.Text = "" Then MsgBox "单价不得为空！": Exit Sub
i = Application.WorksheetFunction.CountA(Columns("a:a")) + 2
Cells(i, 1) = Format(TextBox1.Text, "0")
Cells(i, 2) = TextBox2
Cells(i, 3) = TextBox3
Cells(i, 4) = Format(TextBox4.Text, "0.00")
Cells(i, 5) = TextBox5
Cells(i, 6) = TextBox6
Cells(i, 7) = Format(DTPicker1.Value, "yyyy-mm-dd")
Cells(i, 8) = TextBox8
TextBox1 = TextBox1 + 1
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox8 = ""
'TextBox7 = ""
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub DTPicker1_CallbackKeyDown(ByVal KeyCode As Integer, ByVal Shift As Integer, ByVal CallbackField As String, CallbackDate As Date)

End Sub

Private Sub UserForm_Initialize()
t = Sheet1.Range("A65536").End(xlUp).Row
If t = 2 Then TextBox1.Text = "1" Else TextBox1.Text = Val(Sheet1.Range("A" & t).Value) + 1
End Sub

地主老财

ZRKj6QfX.rar (103.26 KB, 下载次数: 70)

2007-3-1 19:30 上传

点击文件名下载附件
如何记录TEXTBOX上次输入的数据

我再加个附件上来,这样看的比较清楚点

向您问好

楼主的意思是将上次录入的文本框　数据暂时保存在内存中供调用吗

地主老财

是这个意思,因为我下次输入的数据会跟上次输入的数据有很大的相似性,只要改动一点就能成另一个数据

向您问好

我给你上传个内存数组中保存文本框数据的例子

地主老财

好的,如果我看不懂的话再请教你

向您问好

QUOTE:

以下是引用地主老财在2007-3-1 20:40:00的发言：

好的,如果我看不懂的话再请教你

SvKkmwsP.rar (13.82 KB, 下载次数: 88)

2007-3-1 20:41 上传

点击文件名下载附件
如何记录TEXTBOX上次输入的数据

你看一下，这是个我刚修改的内存数组保存操作查询的对你较有用例子

yuanzhuping

何必这么麻烦，保存在一个临时的单元格中不就行了。

地主老财

QUOTE:

以下是引用yuanzhuping在2007-3-1 20:53:43的发言：
何必这么麻烦，保存在一个临时的单元格中不就行了。

请问要如何弄了能帮我解决吗?TEXTBOX2,TEXTBOX3,TEXTBOX5,TEXTBOX6,

yuanzhuping

可以规格品牌等先存在工作表中，窗体中用组合框作，使用时从下拉列表中选择，如果没有的话，再输入。