写一个函数，用于对那些需要有默认值的控件写入默认值，什么时候要改成默认值就调用一次

你说的表应该是数据库的表吧，用insert添加记录时，不需要管原来是否有记录的

添加完记录后，调用一下那个写默认值的函数就行了

我刚才试了一下，上传挺正常的啊

在2005里面，所有的添加删除按钮集中在一个控件上面了，写了个调用的函数，就是不成功

能教我怎么上传吗？我还是第一次上传东西

Public Class sjxxForm

Private Sub 设计信息BindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 设计信息BindingNavigatorSaveItem.Click
Me.Validate()
Me.设计信息BindingSource.EndEdit()
Me.设计信息TableAdapter.Update(Me.数据读取和存储DataSet.设计信息)
End Sub

Private Sub sjxxForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: 这行代码将数据加载到表“数据读取和存储DataSet.设计信息”中。您可以根据需要移动或移除它。
'Me.设计信息TableAdapter.Fill(Me.数据读取和存储DataSet.设计信息)
If 设计日期TextBox.Text = "" Then
Call Fuzhi()
End If

End Sub

Private Sub sjxxForm_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
Me.设计信息BindingSource.EndEdit()
Me.设计信息TableAdapter.Update(Me.数据读取和存储DataSet.设计信息)
End Sub

Private Sub qdButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qdButton.Click
Me.Hide()
Form1.Show()
End Sub

Private Sub qxButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles qxButton.Click
End
End Sub

Private Sub BindingNavigatorAddNewItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BindingNavigatorAddNewItem.Click
Call Fuzhi()
End Sub
Private Sub Fuzhi()
设计者TextBox.Text = "XXX"
设计单位TextBox.Text = "XXXXXXXXXXX"
设计日期TextBox.Text = Today
设计时间TextBox.Text = TimeOfDay
Me.Validate()
Me.设计信息BindingSource.EndEdit()
Me.设计信息TableAdapter.Update(Me.数据读取和存储DataSet.设计信息)
End Sub
End Class

sorry，2005没研究过，你上面的程序我看不懂，帮不上忙

哦，还是要谢谢你啊

2005应该到.net那边的板块去问估计懂的人比较多，这边是vb6的，象我就是一直用vb6，没用过2005，所以帮不上你

好的。我这就去啦

工程文件等要压缩成 .rar 文件才能上传