如题，具体情况我已写在压缩包里面的说明文件里了。请哪位老大能帮个忙。谢谢


实现效果：
加载窗体时，不需要读取表中数据，但是要加载默认值，可以程序中赋值。
加载默认值后将数据发送到表中并保存。保存时，如果是新表，保存为第一条，如果不是，保存为下一条。
点击添加按钮是时，添加新纪录，同时对应文本框中加载默认值。并保存。


请问各位老大：要实现以上效果该如何编写?
在试了多次之后，才发现不能上传文件跟我用的浏览器有关。现在可以了

[此贴子已经被作者于2007-10-12 16:28:14编辑过]

文件上传了，怎么没有显示？

只有250KB，上传成功了，就是没有显示

3楼的老大，有QQ吗？我直接传给您

实现效果：
加载窗体时，不需要读取表中数据，但是要加载默认值，可以程序中赋值。
加载默认值后将数据发送到表中并保存。保存时，如果是新表，保存为第一条，如果不是，保存为下一条。
点击添加按钮是时，添加新纪录，同时对应文本框中加载默认值。并保存。


请问各位老大：要实现以上效果该如何编写?

缘吇弹版主，我该怎样上传文件才能显示？

在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

哦，还是要谢谢你啊