使用循环在数据库中保存动态值

debugcn 发表于 Dev

卡尔

您好，我有一个在 vb 中创建动态文本框和日期时间选择器的代码，然后我想将它保存在我的数据库中，但我的问题是我的代码比动态创建的项目保存的数据更多。我知道这是因为我的代码在 2 个循环中，但我不知道如何将它从 2 个循环中删除。请帮助我谢谢。

我的代码在这里：

 For Each textbox As TextBox In panelGroupDependent.Controls.OfType(Of TextBox)()              
        For Each dtp In panelGroupDependent.Controls.OfType(Of DateTimePicker)()
               SaveRecord("INSERT INTO `tbl name`(`value1`, `value2`, `value3`) VALUES ('" & txt1.Text & "','" & textbox.Text & "','" & dtp.Value.ToString("yyyy-MM-dd") & "')")
        Next   
 Next
                MsgBox("Dependents Records Added Successfully", , "Dependents Records")

码教皇

您可以使用以下约定创建文本框和日期时间选择器：

Textbox1, Textbox2, Textbox3...
DateTimePicker1, DateTimePicker2, DateTimePicker3...

然后您可以使用如下代码：

for i = 1 to Me.panelGroupDependent.Controls.OfType(Of TextBox)().Count()
    Dim txtBox As TextBox  = CType(Me.Controls("Textbox" & i),TextBox)
    Dim dtPicker As DateTimePicker = CType(Me.Controls("DateTimePicker"&i),DateTimePicker)
    SaveRecord("INSERT INTO `tablename`(`value1`, `textbox`, `datetimepicker`) VALUES ('" & txtEmpNumber.Text & "','" & txtBox.Text & "','" & dtPicker.Value.ToString("yyyy-MM-dd") & "')")
Next

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。