主题：请教关于库存状况表设计的问题

在产品信息表的DataColchanging事件设置代码,大概如此，请自行调试修改：
 
If e.DataCol.Name = "产品名称" Then
    if e.NewValue > "" then
           Dim dr as DataRow
           if e.OldValue > "" then
               dr = DataTables("库存").Find("产品名称 = '" & e.OldValue & “‘”)
           end if
           if dr is nothing then
              dr = DataTables("库存").AddNew()
           end if
          dr("产品名称") = e.NewValue
    End if
End if
 
               

1、参考：

http://www.foxtable.com/help/topics/0633.htm

在这个事件中找出另一个表对应的行，然后删除之即可。

 

2、多列填充：

 

Select Case  e.DataCol.Name
    Case "产品名称"
        If e.NewValue > "" Then
            Dim dr As DataRow
            If e.OldValue > "" Then
                dr = DataTables("库存").Find("产品名称 = '" & e.OldValue & "'")
            End If
            If dr Is Nothing Then
                dr = DataTables("库存").AddNew()
            End If
            dr("产品名称") = e.NewValue
        End If
    Case "其他列1","其他列2","其他列3"
        Dim dr As DataRow
        dr = DataTables("库存").Find("产品名称 = '" & e.DataRow("产品名称") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.name) = e.newValue
        End If
End Select