If Tables("部件名称下拉_table1").Rows.Count = 0 Then

    Dim Result As DialogResult

    Result = MessageBox.Show("是否增加新的部件名称?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

    If Result = DialogResult.Yes Then

        Dim Tb As Table = Tables("产品编辑_table2")

        Dim nr As DataRow

        Dim cmd As new SQLCommand

        cmd.C

        cmd.CommandText = "sel ect * from 部件名称表"

        Dim dt As DataTable = cmd.ExecuteReader(True)

        nr = dt.AddNew

        nr("部件名称") = tb.Current("部件名称")

        dt.save

      End If

End If

版主，以上代码，部件名称表中没有增加记录，当点击确定的时候。分析不出原因。