求助：从其它表中，获得相应代码的公式表达问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3549人关注过本帖树形打印复制链接主题：求助：从其它表中，获得相应代码的公式表达问题

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)

peterx

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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("名称= '基本科研费'") '找出基本科研费对应的行

但是，如何获取对应该行中，代码字段的值？

peterx

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

主题：求助：从其它表中，获得相应代码的公式表达问题