以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]表格输入  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=76745)
--  作者：小狐狐
--  发布时间：2015/11/4 11:48:00
--  [讨论]表格输入
我想在人员名单列  打上一个人的名子   在部门的在地方自动显示所属部门  
   不要那种有下拉菜单的  因为人数多 不好找
谢谢，怎么才能实现呢
--  作者：大红袍
--  发布时间：2015/11/4 11:50:00
--  

 参考

 

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

 
--  作者：小狐狐
--  发布时间：2015/11/4 13:43:00
--  
我说的只有两列    没有那么复杂     只在姓名一列打上人名     在部门一列自己填上所在部门就行  

求解
--  作者：Hyphen
--  发布时间：2015/11/4 14:11:00
--  
用法是一样的，只有一列就只取一列赋值，有几列就取几列。
--  作者：大红袍
--  发布时间：2015/11/4 14:13:00
--  
以下是引用小狐狐在2015/11/4 13:43:00的发言：
我说的只有两列    没有那么复杂     只在姓名一列打上人名     在部门一列自己填上所在部门就行  

求解

 

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

 

不会做就上传项目上来。

 
--  作者：小狐狐
--  发布时间：2015/11/4 15:00:00
--  

希望在  事后监督   列输入人名     在部门列  自动显示此人所在部门        部门表 已经编好  
谢谢....
[此贴子已经被作者于2015/11/4 15:19:39编辑过]
--  作者：大红袍
--  发布时间：2015/11/4 15:04:00
--  

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
--  作者：小狐狐
--  发布时间：2015/11/4 15:19:00
--  
谢谢  成功解决