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

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()