主题：控件赋值

Dim 启用状态 As Boolean = True
If 启用状态 = True Then
    DataTables("存货汇总表").datarows.clear
    Dim f As New Filler
    f.SourceTable = DataTables("存货明细表") '指定数据来源
    f.SourceCols = "存货编码" '指定数据来源列
    f.DataTable = DataTables("存货汇总表") '指定数据接收表
    f.DataCols = "存货编码" '指定数据接收列
    f.ExcludeExistValue = True
    f.Fill() '填充数据
End If