以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]这个按钮代码如何写  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3702)
--  作者：ybmjy
--  发布时间：2009/7/27 1:13:00
--  [求助]这个按钮代码如何写
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:自来水收费.table
--  作者：狐狸爸爸
--  发布时间：2009/7/27 8:23:00
--  

Dim tb As Table = Tables("发票管理")
Dim hm As String = e.Form.Controls("textbox1").Value
Dim rw As Row = tb.AddNew()
If hm <> "" Then
   rw("fphm")  = hm
Else
   if tb.Rows.Count > 1 Then
      hm = tb.Rows(tb.Rows.Count - 2)("fphm")
      If hm > "" Then
         rw("fphm")  = Format(Val(hm) +1,"0000000")
      End If
   End If
End If
rw("n") =  e.Form.Controls("ComboBox1").Value
rw("y") =  e.Form.Controls("ComboBox2").Value
rw("r") =  e.Form.Controls("ComboBox3").Value
e.Form.Controls("textbox1").Value = Nothing
e.Form.Controls("fl").Select()
--  作者：ybmjy
--  发布时间：2009/7/27 11:06:00
--  

谢谢！狐爸