If CurrentTable.Name = "BIOS_Table1" Then '如果当前表是模拟的关联表 Dim r As Row = Tables("BIOS主菜单").Current If r IsNot Nothing Then Dim str As String = r("主菜单") Dim ary = str.split(" ") Dim nstr As String = "" For Each s As String In ary nstr &= left(s, 1) Next e.DataRow("类型") = nstr e.DataRow("菜单编号") = r("菜单编号") End If End If
加好友 
发短信
Post By：2018/5/11 18:11:00 [显示全部帖子]
