Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：从其它表中，获得相应代码的公式表达问题


  共有3551人关注过本帖树形打印复制链接

主题：求助：从其它表中，获得相应代码的公式表达问题
帅哥哟，离线，有人找我吗？
peterx
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		求助：从其它表中，获得相应代码的公式表达问题  发帖心情 Post By：2014/9/10 16:32:00 [只看该作者]

根据输入的“经费来源”字段的内容，从相对的经费来源种类代码表中，获取相应来源的代码，表达式如何写？谢谢。


Dim jfly As  String = e.Form.Controls("经费来源").text
Dim jflyb As String = Tables("经费来源种类").Row("名称")
Dim jflydm As String = Tables("经费来源种类").Row("代码")

output.show(jflydm)
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/10 16:35:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/10 16:36:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/9/10 16:36:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
peterx
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：2014/9/10 17:14:00 [只看该作者]

看了半天，还是没看明白。
Dim dr As DataRow
dr = DataTables("经费来源种类").Find("名称= '基本科研费'") '找出基本科研费对应的行   


但是，如何获取对应该行中，代码字段的值？
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/10 17:48:00 [只看该作者]

Dim dr As DataRow
dr = DataTables("经费来源种类").Find("名称= '基本科研费'") '找出基本科研费对应的行

If dr IsNot Nothing Then

    Msgbox(dr("第一列"))

End If
 回到顶部
帅哥哟，离线，有人找我吗？
peterx
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：195 积分：1523 威望：0 精华：0 注册：2014/7/9 16:27:00 		  发帖心情 Post By：2014/9/10 18:05:00 [只看该作者]

谢谢。整合到代码段中，如下代码执行有误。请再指点：

Dim jfly As  String = e.Form.Controls("经费来源").text
Dim jflydm As String
Dim dr As DataRow
dr = DataTables("经费来源种类").Find("名称= 'jfly'") 
If dr IsNot Nothing Then
    jflydm=dr("代码")
End If

MessageBox.show(jflydm)

显示的结果为：白色框？

[此贴子已经被作者于2014-9-10 18:06:01编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/9/10 18:18:00 [只看该作者]

dr = DataTables("经费来源种类").Find("名称= '" & jfly & "'") 

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询