主题：[求助]自动输入多行

 参考 http://www.foxtable.com/help/topics/1459.htm

 

DataColChanged事件

 

If e.DataCol.Name = "名称" Then
    Dim drs As List(of DataRow) = DataTables("库存").Select("名称  = '" & e.DataRow("名称") & "'")
    systemReady = False
    For i As Integer = 1 To drs.Count - 1
        Dim ndr As DataRow = e.DataTable.AddNew
        ndr("名称") = drs(i)("名称")
        ndr("类别") = drs(i)("类别")
        ndr("部品码") = drs(i)("部品码")
        ndr("单位") = drs(i)("单位")
    Next
    systemReady = True
End If

 入库明细表，最好就是不要有太多的空白行。