求助高手解决窗体录入问题

sj348253541 · 发表于 2012-8-31 16:55

请教各位高手，怎么实现窗体录入数据时，添加到表里的数据逐行往下推移，比如录入一行数据后，再录入第二次时，原来录入的数据自动到第二行新录入的始终在第一行

mxfadong · 发表于 2012-8-31 17:05

上传附件！

gufengaoyue · 发表于 2012-8-31 17:44

插入一行，将新数据放在新的一行里就行了。。。

sj348253541 · 发表于 2012-8-31 18:19

mxfadong 发表于 2012-8-31 17:05
上传附件！

谢谢高手帮帮忙

gufengaoyue · 发表于 2012-8-31 18:31

本帖最后由 gufengaoyue 于 2012-8-31 18:31 编辑

录入数据的按钮代码改成这样

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
'首先判断输入的信息是否完整
If Text_sj.Text = "" Or Text_sl.Text = "" Or Combo_gd.Text = "" Or Combo_gj.Text = "" Then
MsgBox "信息输入不完整", vbExclamation, "录入信息提示"
Else
Rows("2:2").Insert Shift:=xlDown
Rows("2:2").RowHeight = 14.25
Sheets("录入区域").[F2] = Combo_gd.Text
Sheets("录入区域").[G2] = Combo_gj.Text
Sheets("录入区域").[H2] = Text_sj.Text
Sheets("录入区域").[I2] = Text_sl.Text
End If
Application.ScreenUpdating = True
End Sub

复制代码

sj348253541 · 发表于 2012-8-31 22:06

gufengaoyue 发表于 2012-8-31 18:31
录入数据的按钮代码改成这样

谢谢十分感谢

zhangwg0604 · 发表于 2018-7-26 14:05

这个可以供你参考，从但是我的还有一部分不会做了。哪位高手给修改一下

		自动登录	找回密码
密码			免费注册

[求助] 求助高手解决窗体录入问题