标题：[求助]这个按钮代码如何写

1楼

ybmjy 发表于：2009/7/27 1:13:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:自来水收费.table

2楼

狐狸爸爸 发表于：2009/7/27 8:23:00

Dim tb As Table = Tables("fa piao管理")
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()

3楼

ybmjy 发表于：2009/7/27 11:06:00

谢谢！狐爸

共3 条记录, 每页显示 10 条, 页签: [1]