主题：[求助]关于数据填充器的填充条件Filter

做个示例看看

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

问题一:在表A的AfterEdit里
If e.Col.Name <> "姓名" Then
    Return
End If
If e.Row.IsNull("姓名") Then
    e.Row("工作时间") = Nothing
    e.Row("学历") = Nothing
    e.Row("人员来源") = Nothing
    Return
End If
Dim dr As DataRow
dr = DataTables("表B").Find("[姓名] = '" & e.Row("姓名") & "'")
If dr IsNot Nothing Then
    e.Row("工作时间") = dr("工作时间")
    e.Row("学历") = dr("学历") '
    e.Row("人员来源") = dr("人员来源")
End If

问题二:由于表A没有状态列,无法填充...

可能我的理解力低,还是看不明白你要实现的功能.

属性：

• SourceTable
  
  数据来源表。
   
• SourceCols
  
  数据来源列，不同的列用逗号分割。
   
• DataTable
  
  数据接收表。
   
• DataCols
  
  数据接收列，不同的列用逗号分割。
   
• ExcludeExistValue
  
  逻辑型，设为True，排除接收表中已经存在的内容。
   
• ExcludeNullValue
  
  逻辑型，设为True，排除空白值。
   
• Filter
  
  填充条件。
   
• Distinct
  
  逻辑型，是否排除重复内容，默认为True；如果设为False，将不会排除重复内容，也不会排除已有内容和空白值。
   
• Append
  
  逻辑型，默认为True，在接收表中增加新行用于接收数据，设为False，则在原有的行中填充，如果不够再增加新行。
  
  
  示例:Filter基本上也就是一个设置过滤条件表达式的样子.
  
  Dim Cz As DataTable = DataTables("长嘱")
  mk = "[住院ID] = '" & str2 & "'"
  
  dim f As New Filler
  f.SourceTable = Cz '指定数据来源
  f.SourceCols = "住院ID,类别,项目,规格,单位,单价,总用量,金额"'指定数据来源列
  f.DataTable = DataTables("清单0")'指定数据接收表
  f.DataCols = "住院ID,类别,项目,规格,单位,单价,用量,小计"'指定数据接收列
  f.Filter  = mk'填充条件    这一行可以理解为f.Filter = 某个条件...比如:f.Filter = "[姓名]= 'A'"
  f.Distinct =False
  f.Fill()'填充数据