| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 求助：从其它表中，获得相应代码的公式表达问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=56671) |
| -- 作者：peterx -- 发布时间：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) |
| -- 作者：有点甜 -- 发布时间：2014/9/10 16:35:00 -- 参考 http://www.foxtable.com/help/topics/0396.htm
|
| -- 作者：有点甜 -- 发布时间：2014/9/10 16:36:00 -- 实例 http://www.foxtable.com/help/topics/1459.htm
|
| -- 作者：Bin -- 发布时间：2014/9/10 16:36:00 -- 利用FIND http://www.foxtable.com/help/topics/0396.htm |
| -- 作者：peterx -- 发布时间：2014/9/10 17:14:00 -- 看了半天，还是没看明白。 Dim dr As DataRow dr = DataTables("经费来源种类").Find("名称= \'基本科研费\'") \'找出基本科研费对应的行 但是，如何获取对应该行中，代码字段的值？
|
| -- 作者：有点甜 -- 发布时间：2014/9/10 17:48:00 -- Dim dr As DataRow
dr = DataTables("经费来源种类").Find("名称= \'基本科研费\'") \'找出基本科研费对应的行
If dr IsNot Nothing Then Msgbox(dr("第一列")) End If |
| -- 作者：peterx -- 发布时间：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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2014/9/10 18:18:00 -- dr = DataTables("经费来源种类").Find("名称= \'" & jfly & "\'") |