请教

1：在附件的基础上增加以下代码，运行错误。目的是：在工程名称输入单个字时可选择包含该字符的一个工程名称，选择该工程名称后，对应的工程编号填入窗口中的工程编号框。

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox2")
\'Dim dr As DataRow = cm.SelectedItem
\'If dr IsNot Nothing Then
    \'e.Form.Controls("ComboBox2").Value = dr("工程名称")
    \'e.Form.Controls("ComboBox3").value = dr("工程编号")
\'End If

2：现窗口的tabel是对应的table(订单），如何实现当按下“新增”按钮时，窗口对应的是全新的表格，在表格中输入内容后再次按“新增”按钮时，将已在窗口录入的内容保存在订单表格中。这样可避免在table输入时误修改原有的内容。

有点蓝，你好！  试过，问题1未解决，没达到功能。

SelectedItem

列表项目来自于数据表时，可用此属性返回或设置所选择的行(DataRow类型)。
如果是自定义列表项目,此属性等同于SelectedValue。

示例

某组合框绑定到客户表，希望从该组合框选择一个客户后，能够将该客户的电话和姓名填入另两个文本框中。
为实现此目的，可将该组合框的SelectedIndexChanged事件代码设为：

Dim cm As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim dr As DataRow = cm.SelectedItem
If dr IsNot Nothing Then
    e.Form.Controls("txtName").Value = dr("姓名")
    e.Form.Controls("txtTel").Value = dr("电话")
End If

谢谢

有点蓝，私人有问题请教你，这是我的qq号（719971146），有空请你联系我或给我qq号。