主题：录入窗口功能求教

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了