一个录入界面，我想新增一笔记录后，不退出界面，界面的内容清空，继续添加。怎么处理。

如题。 问题点数：20、回复次数：8Top

1 楼colorslife（刚才进车里时,周围的人都看我在哭,就拍窗子让你看见我!）回复于 2006-03-23 09:35:40 得分 0

Private   sub   command1_click()  
        rs.addnew  
        rs(0)=text1  
        rs(1)=text2  
   
  End   subTop

2 楼colorslife（刚才进车里时,周围的人都看我在哭,就拍窗子让你看见我!）回复于 2006-03-23 09:38:09 得分 10

Private   sub   command1_click()  
        rs.addnew  
        rs(0)=text1  
        rs(1)=text2  
        rs.update  
         
  IF   Msgbox("已加入，是否再增加？",vbOkCancel   )=vbok   then  
  text1.text=""  
  text2.text=""  
  else  
      unoad   me  
  end   if  
  End   sub  
  Top

3 楼jackcaixia（风）回复于 2006-03-23 09:50:52 得分 5

同上:  
    rs.addnew  
        rs(0)=text1  
        rs(1)=text2  
        rs.update  
  text1.text=""  
  text2.text=""Top

4 楼vansoft（Vansoft Workroom）回复于 2006-03-23 11:06:40 得分 0

保存完了清空所有的控件內容即可啊。Top

5 楼rayxu（有心就成）回复于 2006-03-23 11:40:46 得分 0

还没有解决吗？把他的文本内容设为空就好了  
  控件不同变一下就好了  
  combo1.text   =   ""  
   
  text2.text=""  
  Top

6 楼xianghua（华）回复于 2006-03-23 15:34:47 得分 0

一个个设，工作量大，如果一个界面很多项，或有多个界面，这种方法就不太好。所以  
  我想问问有没有其它的办法。  
  Top

7 楼applekiller（）回复于 2006-03-23 15:47:04 得分 2

dim   ctl   as   control  
  rs.addnew  
        rs(0)=text1  
        rs(1)=text2  
    rs.update  
  for   each   ctl   in   me.controls  
      if   typeof(ctl)   is   textbox   then  
          ctl.text=""  
      endif  
  nextTop

8 楼cxianfa（含笑）回复于 2006-03-23 23:09:44 得分 3

保存完了就把所有的控件的值设置为0，为空  
  就想上面的那么多人讲的一样  
  Top

相关问题

• 界面
• 控件
• rs
• addnew
• ctl
• text
• sub

• 帖主：xianghua
• colorslife
• jackcaixia
• applekiller
• cxianfa

• Visual Basic类图书
• Visual Basic类源码下载