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

不是根据输入的追加类别取得对应的拼音码，这样和重置列没有区别，是相当于fill（易表中的appendfor）。

大致如下：

dim f As New Filler
f.SourceTable = DataTables("追加项目") '指定数据来源
f.SourceCols = "拼音码,项目名称" '指定数据来源列
f.DataTable = DataTables("长期医嘱") '指定数据接收表
f.DataCols = "拼音码,项目名称" '指定数据接收列
f.Fill()

现在的问题是Filter的填充条件是列表框选定的条件 （cm4.Value ）

填入后住院号是空值，如果ComboBox1（住院号）不为空的话，同时填入住院号。

大概如此：

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