主题：[求助]新增行同时填入选定内容，带条件提取数据

第二个问题：

Dim cm4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
If cm4.Value IsNot ntohing Then
    Dim dr As DataRow = DataTables("追加项目").Find("项目名称 ='" & cmb.Value & "'")
    If dr IsNot Nothing Then
        Tables("长期医嘱").Current("接收列的名称") = dr("拼音码")
    End If
End If