大侠求助呀，搞了一天没弄来出这个“保存”的按钮的代码？

见图！

这个窗口的代码是：

Dim dst As Table = Tables("主口_Table2014")
Dim dr As Row = dst.Current

With e.form
    Dim i As Integer  
    Dim kz As String = "TextBox1,TextBox2,TextBox3,TextBox4,TextBox5,TextBox6,TextBox7,TextBox8,TextBox9,DateTimePicker1,DateTimePicker2,DateTimePicker3,ComboBox1,ComboBox2,ComboBox3,ComboBox4"
    Dim lm As String = "合同号,公司名称,项目_名称,项目_工程号,合同_金额,联系人_采购部,联系人_技术部,联系人_仓库,备注,合同签订日期,交货日期_台子_时间,交货日期_整船_时间,合同_币种,资料提交,证书发票,付款方式"
    i = 0
    For Each k As String In kz.split(",")
        .Controls(k).Value = dr(lm.split(",")(i))
        i += 1
    Next
    Tables("_2014年合同").AllowEdit = False
End With

另外那个 打听下，那个“checkbox 修改”，代码如下

Dim str As String = "TextBox1|TextBox2|TextBox3|TextBox4|TextBox5|TextBox6|TextBox7|TextBox8|TextBox9|ComboBox1|ComboBox2|ComboBox3|ComboBox4"
Dim bln As Boolean = e.Form.Controls("CheckBox3").Checked
For Each k As String In str.split("|")
    e.form.Controls(k).Enabled = bln
Next
Tables("_2014年合同").AllowEdit = bln

为什么刚进这个窗口的时候不马上执行，要点这个按钮后才执行相应的功能？

帮忙看看，这个是我做，做不下去了。里面有保存按钮搞不了，另外有没有办法加一按钮，增加新项目的

求教高手指导啊，要不加Q群19460391 私底下教下吧，

 你可以参考这个例子来做

  http://www.foxtable.com/help/topics/2263.htm