添加按钮的代码有问题，你改为：

Dim t1 As String = e.Form.Controls("编号").VALUE
Dim t2 As String = e.Form.Controls("名称").VALUE
Dim t3 As String = e.Form.Controls("类别").VALUE
Dim t4 As String = e.Form.Controls("标准").VALUE
Dim t5 As String = e.Form.Controls("型号").VALUE
Dim t6 As String = e.Form.Controls("单位").VALUE
Dim t7 As String = e.Form.Controls("单价").VALUE
If DataTables("材料信息表").DataCols.Count = 0 Then
    Tables("材料信息表").AddNew
Else
    If t2 = "" And t3 = "" And t4 = "" And t5 = "" And t6 = "" Then
        MessageBox.show("请输入完整的材料信息","提示")
        Return
    Else
        Dim dr As Row = Tables("材料信息表").AddNew
        dr("材料编号") = t1
        dr("材料名称") = t2
        dr("材料类别") = t3
        dr("应用标准") = t4
        dr("规格型号") = t5
        dr("单位") = t6
        dr("单价") = t7
    End If
End If