- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 按键代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58401)
-- 发布时间：2014/10/16 9:41:00
-- 按键代码
按键代码如何写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.rar |
-- 发布时间：2014/10/16 9:50:00
--
Dim k() As String = {1,2,3,4,5}
Dim v() As String = {"第一室","第二室","第三室","第四室","第五室"}
Dim dic As new Dictionary(Of String, String)
For i As Integer = 0 To k.Length - 1
dic.Add(k(i), v(i))
Next
For Each r As Row In Tables("表A").Rows
If dic.ContainsKey(r("第一列")) Then
r("第二列") = dic(r("第一列"))
End If
Next
-- 发布时间：2014/10/16 9:51:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/10/16 9:53:00
--
for each dr as datarow in datatables("表A").datarows
dr("第二列")= "第" & CLNum(dr("第一列")) & "室"next
-- 发布时间：2014/10/16 9:55:00
--
谢谢二位老师！