关于窗体问题，请蓝老师、赵老师及其它高手关注下。。。。

zjwww

下来看看,有啥特色?

蓝桥玄霜

表格的字段要与窗体里面的文本框对应起来，然后才能对号入座。
代码中需要加入表格对象，因为你对应几个表格的。
代码形式供参考，未对应单元格。可自己修改。

1. Private Sub CommandButton7_Click()    '外宿人员管理-保存按键的值
   
2. With Sheet4
   
3.     x = .Range("A65536").End(xlUp).Row + 1 '最后行数
   
4.     .Cells(x, 1) = x - 1
   
5.     .Range("B" & x & ":J" & x) = Array(TextBox23.Value, TextBox24.Value, TextBox25.Value, TextBox26.Value, TextBox27.Value, TextBox28.Value, TextBox29.Value, TextBox30.Value, TextBox31.Value) '相对应的单元格的值
   
6. End With
   
7. End Sub
   

复制代码

cycssky

蓝桥玄霜 发表于 2011-11-25 20:27
表格的字段要与窗体里面的文本框对应起来，然后才能对号入座。
代码中需要加入表格对象，因为你对应几个表 ...

蓝老师终于出现了，哈哈，那些问题我都解决了。我看了你很多例子就搞几下成功啦～！谢谢你啦～！现在就是有几个新的问题：1、录入的时候如何防止有重复的？2、修改按键的修改功能代码这个我不知道如何用？3、listview是个好东西，但是我看了别人的代码，运用过来就是不成功？愿闻蓝老师指点。

蓝桥玄霜

请把修改过的附件再发上来看看。重复问题可用Find查找。

cycssky

蓝桥玄霜 发表于 2011-11-27 09:19
请把修改过的附件再发上来看看。重复问题可用Find查找。

谢谢蓝老师关注，感谢各位网友关注。如附件所示，静候佳音。

蓝桥玄霜

日常管理问题同前面一个问题，自己修改一下。
请见附件。

cycssky

蓝桥玄霜 发表于 2011-11-27 17:14
日常管理问题同前面一个问题，自己修改一下。
请见附件。

谢谢蓝老师，如有其它问题，我再请教您。

cycssky

蓝桥玄霜 发表于 2011-11-27 17:14
日常管理问题同前面一个问题，自己修改一下。
请见附件。

蓝老师，辛苦你了。还有一个问题，我把它单独出来了，想请教一下您。有时间帮忙看下。非常感谢您了。

蓝桥玄霜

1. Private Sub CommandButton1_Click() '修改
   
2. Dim r1, Myc%, n&
   
3.     Set r1 = [b:b].Find(TextBox1.Text, , , 1)
   
4.     If r1 Is Nothing Then MsgBox "没有这个工号！": Exit Sub
   
5.     n = r1.Row
   
6.     Myc = Cells(n, "iv").End(xlToLeft).Column + 1
   
7.     Cells(n, 3) = TextBox3.Text
   
8.     Cells(n, Myc) = TextBox2.Text
   
9. End Sub
   

复制代码

cycssky

蓝桥玄霜 发表于 2011-11-29 20:30

谢天谢地谢蓝桥哥。