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

地主老财

规格,品牌 都是未知的，没法事前添加的。

向您问好

其实在内存中保存调用的方法经常用到

在单元格中过渡方法虽好，但不小心数据容易搞错

地主老财

QUOTE:

以下是引用向您问好在2007-3-1 20:42:12的发言：

EDSTnTZ3.rar (189.27 KB, 下载次数: 38)

2007-3-1 21:20 上传

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

EdgeOfCity

楼主要明确一点,上次输入是指什么? 是指关掉窗体后,再打开窗体,还是指连续输入的上一次?

如果是后者,按确定后,文本框不用清除就可以了

如果是指前者,可在工作表中用一个名称存储序号,下次打开窗体的时候,再根据序号查出对应的值填入文本框

地主老财

指连续输入的上一次

yuanzhuping

QUOTE:

以下是引用地主老财在2007-3-1 21:24:20的发言：
指连续输入的上一次

窗体别关闭就是了。

地主老财

我已经解决了

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 = TextBox2
TextBox3 = TextBox3
TextBox4 = ""
TextBox5 = TextBox5
TextBox6 = TextBox6
TextBox8 = ""
'TextBox7 = ""
End Sub

红色部分我是另外添加的，这样只要不关闭窗体，就会连续上次输入的数据了

EdgeOfCity

红色那几行根本就可以删除

clothfish

QUOTE:

以下是引用地主老财在2007-3-1 21:35:27的发言：

我已经解决了

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 = TextBox2
TextBox3 = TextBox3
TextBox4 = ""
TextBox5 = TextBox5
TextBox6 = TextBox6
TextBox8 = ""
'TextBox7 = ""
End Sub

红色部分我是另外添加的，这样只要不关闭窗体，就会连续上次输入的数据了

原来是这个意思,标红的行删除就可以了

欲擒故纵

你看用这种方式做行不行

aFWr8Prd.rar (95.57 KB, 下载次数: 81)

2007-3-1 23:19 上传

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