- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教：这个确认命令怎样修改？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66692)
-- 发布时间：2015/4/12 9:17:00
-- 请教：这个确认命令怎样修改？
代码如下：
Dim pr As Row = Tables("实体预算书").Current
pr("项目特征") = ""
For Each dr As DataRow In DataTables("项目特征").Select("特征值 Is Not null And QD = \'"& pr("QD") &"\'")
Dim co As Integer = DataTables("项目特征").compute("count(_Identify)","特征值 > \'""\' And QD = \'"& pr("QD") &"\'")
pr("项目特征") = pr("项目特征").Trim() & vbcrlf & co & "." & dr("特征").Trim() & ": " & dr("特征值").Trim()
Next
想要达到的目的 分别见图1、图2 。
图2这样操作：在下面的关联表 特征值 列，只剩1行，点击 确认 命令 ，再切换到 项目特征 的列窗口
此主题相关图片如下：1.png
此主题相关图片如下：2.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1 - 副本.table |
[此贴子已经被作者于2015/4/12 9:30:01编辑过]
-- 发布时间：2015/4/12 9:35:00
--
问题描述有点费解，下面的代码不知道对否：
Dim pr As Row = Tables("实体预算书").Current
Dim s As String
Dim drs As List(of DataRow) = DataTables("项目特征").Select("特征值 Is Not null And QD = \'"& pr("QD") &"\'")
For i As Integer = 0 To drs.count -1
Dim dr As DataRow = drs(i)
s = S & (i+1) & "." & dr("特征").Trim() & ": " & dr("特征值").Trim()
If i < drs.count -1 Then
s= s & vbcrlf
End If
Next
pr("项目特征") = s
-- 发布时间：2015/4/12 9:42:00
--
谢谢了！ 正确！