【发布时间】:2015-11-25 06:05:41
【问题描述】:
我附上了代码供参考。我正在尝试为我的项目详细信息创建数据库。我目前有 2 种表格:
- 主要形式
- 项目明细表
用于切换各种表单的主表单
项目详细信息表单用于添加/编辑/加载项目详细信息
我在 Visual Basic 中的主要表单如下所示。
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Private Sub Bt_Project_Details_Click(sender As Object, e As EventArgs) Handles Bt_Project_Details.Click
Me.Hide()
Project_Details_Form.Show()
End Sub
End Class
我的项目详细信息表如下所示。
Public Class Project_Details_Form
Private Sub Project_Details_Form_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'Project_Data_Set.Project_Data_Table' table. You can move, or remove it, as needed.
Me.Project_Data_TableTableAdapter.Fill(Me.Project_Data_Set.Project_Data_Table)
End Sub
Private Sub Bt_Load_Project_Click(sender As Object, e As EventArgs) Handles Bt_Load_Project.Click
End Sub
Private Sub Bt_Cancel_Click(sender As Object, e As EventArgs) Handles Bt_Cancel.Click
Me.Hide()
Form1.Show()
End Sub
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click
Project_Data_TableBindingSource.AddNew()
End Sub
Private Sub Project_Data_TableBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles Project_Data_TableBindingNavigatorSaveItem.Click
Me.Validate()
Me.Project_Data_TableBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.Project_Data_Set)
End Sub
Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
Project_Data_TableBindingSource.RemoveCurrent()
End Sub
Private Sub FillByToolStripButton_Click(sender As Object, e As EventArgs)
Try
Me.Project_Data_TableTableAdapter.FillBy(Me.Project_Data_Set.Project_Data_Table)
Catch ex As System.Exception
System.Windows.Forms.MessageBox.Show(ex.Message)
End Try
End Sub
End Class
现在我面临一些问题:
每当我运行程序时,尝试输入正在保存但值为空的第一个条目数据。下次输入的数据正确存储。如何让我的第一个条目可见?
-
在下面的代码中:
Private Sub BindingNavigatorAddNewItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorAddNewItem.Click Project_Data_TableBindingSource.AddNew() End Sub我正在使用
AddNew()。这工作正常,但问题是即使我不输入日期等数据,名称保持为空,记录在其位置的数据仅存储为空。我想说如果任何项目数据集为空,则给出错误消息(因为用户必须输入这些数据)
【问题讨论】:
-
如果您询问的是 VB(实际上是 VB.NET;只是假定 Visual Basic 是旧的 VB6,在 .NET 之前),为什么要添加 VBA 标记(一种完全不同的语言)?正确标记您的问题,最好不要在标题中添加(不准确)对编程语言的引用。
-
我是初学者。我正在用 Visual Basic 编写代码。
-
@varocarbas 是什么让你认为我在这里行为不端。我已经发布了我的代码。我希望它确实符合提出问题的要求
-
在您的
Project_Data_TableBindingNavigatorSaveItem_Click子中,您需要在保存之前检查是否添加了任何数据。