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

第二个问题：

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

我不是很懂你的意思，无法回答。

不过上面的代码已经告诉你如何根据输入的追加类别取得对应的拼音码，接下来将这个拼音码写入到什么地方，应该不是难事吧。

Dim cm4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
If cm4.Value IsNot ntohing Then
    Dim f As New Filler
    f.SourceTable = DataTables("追加项目") '指定数据来源
    f.SourceCols = "拼音码,项目名称" '指定数据来源列
    f.DataTable = DataTables("长期医嘱") '指定数据接收表
    f.DataCols = "拼音码,项目名称" '指定数据接收列
    f.Filter = "项目名称 ='" & cmb4.Value & "'"
    f.Fill()
End If

大概如此：

Dim cm4 As WinForm.ComboBox = e.Form.Controls("ComboBox4")
If cm4.Value IsNot Nothing Then
    For Each dr1 As DataRow In DataTables("追加项目").Select("项目名称 ='" & cm4.Value & "'")
        Dim dr2 As DataRow = DataTables("长期医嘱").AddNew()
        dr2("拼音码") = dr1("拼音码")
        dr2("项目名称") = dr1("项目名称")
        dr2("开嘱日期") = e.Form.Controls("DateTimePicker1").Value
        dr2("住院号") = e.Form.Controls("ComboBox1").Value
        '.....
    Next
End If

参考：

http://www.foxtable.net/help/topics/1533.htm