自动取值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

1、做成关联表，通过关联取值

2、使用代码：

职工信息表DataColChanged事件

If e.DataCol.Name = "姓名" And e.NewValue IsNot Nothing Then '如果内容发生变动的是姓名列

Dim dr As DataRow

dr = DataTables("工资信息表").Find("[姓名] = '" & e.NewValue & "'")

If dr Is Nothing Then '如果找到了同名的产品行,也就是dr不是Nothing

dr = DataTables("工资信息表").AddNew

dr("姓名") = e.NewValue

End If

主题：自动取值