主题：查询表编号

组合框TextChanged代码

e.Form.Controls("Table1").Table.Fill("Sele ct  '' As 序号,产品,客户,雇员 From {表A} Where 产品 = '" & e.Form.Controls("产品").text & "'", True)

With e.Form.Controls("Table1").Table
    For i As Integer = 0 To .Rows.Count - 1
        .Rows(i)("序号") = i+1
    Next
End With