主题：窗口table表数据定位显示

Dim zzh As String=Tables("ddqdb").current("zzh")

Dim mc As String=Tables("ddqdb").current("产品类型")

dim Dt1 as integer=val(e.form.ccontrols(“textbox8”).text)

dim Dt2 as integer=val(e.form.ccontrols(“textbox9”).text)

Tables("加工工艺流程卡_Table1").DataTable.LoadFilter ="[zzh] ='" & zzh & "'And [产品类型]='" & mc & "'"

Tables("加工工艺流程卡_Table1").DataTable.Load

for i as integer = Tables("加工工艺流程卡_Table1").Rows.count-1 to 0 step -1  '统计符合条件的行数

if i > Dt2 orelse i < dt1 then 

Tables("加工工艺流程卡_Table1").Rows(i).remove

next

next