[原创]职工档案系统

araysqc

<p>我也要说,谢谢楼主.楼主辛苦了</p>

akm5800

收藏~学习学习~谢谢楼主了~辛苦

gohs

太感谢了

城市边缘人

非常感谢楼主，你太厉害了！<br/>有一事不明，为什么我打开这后只有录入窗口，没办法修改原来的数据呢，要怎么修改呢<br/>

yanying

<p>學習中,謝謝!</p>

gohs

我因工作需要，需要改下窗体布局，请教如何将编辑框连接单元格，完成输入保存。。麻烦了，请帮忙改一下或者告诉我改法。我将压缩文件传上 hpnJ99WU.rar (52.47 KB, 下载次数: 78)

2008-3-7 12:20 上传

点击文件名下载附件
斑竹帮帮忙

<br/>

[此贴子已经被作者于2008-3-7 12:20:24编辑过]

xiaohua010

太好了，非常实用。

yuanzhuping

<div class="msgheader">QUOTE:</div><div class="msgborder"><b>以下是引用<i>gohs</i>在2008-3-7 12:19:20的发言：</b><br/>我因工作需要，需要改下窗体布局，请教如何将编辑框连接单元格，完成输入保存。。麻烦了，请帮忙改一下或者告诉我改法。我将压缩文件传上<br/><br/></div><p></p><p>窗体的录入按钮这段代码就是录入到工作表单元格的</p><p>With Cells(a + 1, 1) '开始赋值<br/>&nbsp;&nbsp; .Value = ComboBox1.Value<br/>&nbsp;&nbsp; For i = 1 To 14<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; .Offset(0, i).Value = Me.Controls("TextBox" &amp; i).Value<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ComboBox1.Value = "" '窗体清除数据<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Me.Controls("TextBox" &amp; i).Value = ""<br/>&nbsp;&nbsp; Next<br/>End With</p><p>你又添加了许多文本框，需要修改下，当然在工作表中也要修改。</p>

gohs

谢谢回复。

marcwei

很不错，能否增加几栏信息<br/>基本信息里增加，入职日期、家庭地址、户籍<br/>工资、银行卡信息<br/><br/><br/><br/>