主题：[讨论]表格输入

我想在人员名单列  打上一个人的名子   在部门的在地方自动显示所属部门  

 参考

 

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

 

我说的只有两列    没有那么复杂     只在姓名一列打上人名     在部门一列自己填上所在部门就行  

用法是一样的，只有一列就只取一列赋值，有几列就取几列。

 

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

 

不会做就上传项目上来。

 

If  e.DataCol.Name = "事后监督" Then
    Dim dr As DataRow
    Dim Filter As String
    Filter = "[事后监督] = '" & e.DataRow("事后监督") & "'"
    dr = DataTables("总表").Find(Filter ) '在行政区域表查找所输入省市和县市的行
    If dr IsNot Nothing Then '如果找到
        '将找到行的区号?邮编内容填入到正在输入的行中.
        e.DataRow("部门") = dr("部门")
    Else
        '否则清除区号和邮编两列的内容
        e.DataRow("部门") = Nothing

    End If
End If

谢谢  成功解决