以下是引用狐狸爸爸在2011-7-31 9:30:00的发言:
我不是很懂你的意思,无法回答。
不过上面的代码已经告诉你如何根据输入的追加类别取得对应的拼音码,接下来将这个拼音码写入到什么地方,应该不是难事吧。
不是根据输入的追加类别取得对应的拼音码,这样和重置列没有区别,是相当于fill(易表中的appendfor)。
大致如下:
dim f As New
Filler
f.SourceTable = DataTables("追加项目") '指定数据来源
f.SourceCols = "拼音码,项目名称" '指定数据来源列
f.DataTable = DataTables("长期医嘱") '指定数据接收表
f.DataCols = "拼音码,项目名称" '指定数据接收列
f.Fill()
现在的问题是Filter的填充条件是列表框选定的条件 (cm4.Value )
填入后住院号是空值,如果ComboBox1(住院号)不为空的话,同时填入住院号。