主题：录入窗口功能求教

Dim dt As DataTable = DataTables("课类分类表")
Dim fl As String = e.Form.Controls("TextBox01").text
Dim km As String = e.Form.Controls("Textbox12").text
 
For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    Dim nr As DataRow = dt.find("分类 = '" & fl & "' and 培训科目 = '" & km & "' and 科目 = '" & CLNum(i) & "级" & "'")
    If nr Is Nothing
        nr = dt.AddNew
        nr("分类") = fl
        nr("培训科目") = km
        nr("科目") = km & CLNum(i) & "级"
    End If
    nr("课时费") = e.Form.Controls("Textbox" & i).text
    nr.save
Next

e.Form.close

这是我另外一个窗口确定按钮的的代码

在这个窗口 ，我只要能用现在已经存在的 Label1-6的值+再附加一个值 一起组合成“科目”列下的内容就OK了

好了，不烦大师了，

我尝试添加了另一种控件

我编写完代码 试试看行不行

For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    e.Form.Controls("Textbox" & i).Visible = True
    e.Form.Controls("Label" & i).Visible = True
    e.Form.Controls("CheckedComboBox" & i).Visible = True
    e.Form.Controls("Label" & i).Text = e.Form.Controls("TextBox13").Text
Next

我用的

Dim dt As DataTable = DataTables("课类分类表")
Dim fl As String = e.Form.Controls("Combobox2").text
Dim km As String = e.Form.Controls("Textbox13").text
 
For i As Integer = 1 To 4
  e.Form.Controls("CheckedComboBox" & i).Visible = i <= val(e.Form.Controls("Combobox1").Text)
Next
For i As Integer = 1 To e.Form.Controls("Combobox1").Text
    Dim nr As DataRow = dt.find("分类 = '" & fl & "' and 培训科目 = '" & km & "' and 科目 = '" & CLNum(i) & km & "'")
    If nr Is Nothing
        nr = dt.AddNew
        nr("分类") = fl
        nr("培训科目") = km
        nr("科目") = e.Form.Controls("CheckedComboBox" & i).Text  & km
  End If
    nr("课时费") = e.Form.Controls("Textbox" & i).text
    nr.save
Next

e.Form.close

居然被我瞎猫碰上死耗子了~~~。。。