如何在Virtual Studio中将数据写入一行？ （MS Access数据库文件“

Question

我想做一个小型应用程序，这可以使我的工作更轻松。

我必须在一个有计划的标签上进行一个订购过程，然后从计划中创建一个带有标签名称的excel列表，这些标签将由制造商打印。标签的类型很多（名称），但它们正在固定。 （160个不同的名称）。

因此，如果我有一个新的计划，我会始终这样做，然后会创建新的标签列表。我总是一格接一格地手动操作。有时候我必须为一个计划填写400个单元格……我没有太多时间来做。 因此，我开始使用Visual Studio（在Windows From – Visual Basic中）制作我的第一个Windows应用。

我找到了一些很酷的视频，所以我已经有了“基础知识”。

我将一个MS Access数据库连接到我想存储数据的项目。

现在我有麻烦了。我有一些组合框。我想选择一些情况，然后我想更新数据库，其中的行将填充正确的值。如果完成，我可以导出到excel并转发给制造商。

我有一个文本框，在其中输入计划名称（它链接到数据库的第一列）

然后：

因此Combobox1具有Sektor A，B，C，D，E，F（六个值）

Combobox2具有09RRU，09RSU，18RRU ...空-（八个值）

Combobox3具有21RRU，21RSU，26RRU ...空-（八个值）

Combobox4具有ja或nein（只有两个值） 等等。我有8个组合框。

我的想法：

如果我选择Sektor A和09RRU，另外两个是空的，那么我要单击更新按钮，我想回到数据库09.SekA1、09.SekA2，AISG.SekA

如果选择Sektor A和09RRU和21RRU和ja，则在单击更新后，我想获取09.SekA1、09.SekA2、21.SekA1、21.SekA2、09.21.SekA1、09.21SekA2，AISG。 09.21。塞卡 …。

如果需要，我可以逐行编写每种类型的标签，我认为我必须这样做。我认为动态数组制作也可以，例如， （创建文本（09）和文本（.SekA）和文本（1））。我刚刚启动了VB。

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox8.SelectedIndexChanged
    SektorForm1()
End Sub

Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
End Sub

Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged        
End Sub

Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.SelectedIndexChanged        
End Sub

Private Sub SektorForm1()
    BEschriftungenDataSet.Standort.RRU18Column = "18.SekA1"
    BEschriftungenDataSet.Standort.RRU21Column = "18.SekA2"
    BEschriftungenDataSet.Standort.RRU26Column = "AISG.18.SekA"
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Me.StandortTableAdapter.Fill(Me.BEschriftungenDataSet.Standort)
    ComboBox1.SelectedIndex = 5
    ComboBox2.SelectedIndex = 3
    ComboBox3.SelectedIndex = 3
    ComboBox4.SelectedIndex = 1
    ComboBox5.SelectedIndex = 1
    ComboBox6.SelectedIndex = 1
    ComboBox7.SelectedIndex = 1
    ComboBox8.SelectedIndex = 0
End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    On Error GoTo SaveErr
    StandortBindingSource.EndEdit()
    StandortTableAdapter.Update(BEschriftungenDataSet.Standort)
    MessageBox.Show("Saved")
End Sub

有人可以帮我解决我代码中的错误吗？当我在Combobox1中选择某项功能时，我尝试将一些数据插入tha数据库中，但是它不起作用。

我遇到故障：BC30526属性“ RRU18Column”为“只读”，并且BC30311值“字符串”无法转换为“ DataColumn”。 并提供一些帮助，让我如何凝视如何根据我的组合框选择情况。

谢谢大家