У меня есть код для справки. Я пытаюсь создать базу данных для моих деталей проекта. У меня в настоящее время 2 формы:Проблемы с обновлением базы данных
- основной форма
- проект деталь форма
Главной форма используется для переключения различных форм
детали проекта форма предназначена для деталей проекта добавления/редактирование/нагрузок
Моя основная форма в визуальном представлении выглядит следующим образом.
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 (совершенно другой язык)? Отметьте свой вопрос правильно и лучше не добавляйте (неточные) ссылки на язык программирования в названии. – varocarbas
Я начинаю. Я пишу код в Visual Basic. –
@varocarbas, что заставило вас думать, что я плохо себя чувствую здесь. Я разместил свой код. я ожидаю, что он удовлетворяет требованию вопроса, который будет задан. –