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
版主,以上代码,部件名称表中没有增加记录,当点击确定的时候。分析不出原因。