- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 拆分与合并 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123028)
-- 发布时间：2018/8/6 22:16:00
-- 拆分与合并
此主题相关图片如下：拆分，合并.png
想实现的功能：
1、将表名拆分分表名称和表模式
2、将表名称和表模式合并为表名
-- 发布时间：2018/8/6 22:29:00
--
参考：http://www.foxtable.com/webhelp/scr/1338.htm
dim arr() as string = tables("表A").current("表名称").split(".")
msgbox(arr(0))
-- 发布时间：2018/8/6 22:50:00
--
1、将表名拆分分表名称和表模式
For Each dr As DataRow In DataTables("表A").DataRows
If dr.IsNull("表名称") Then
dr("表名") = Nothing
Else
Dim nms() As String = dr("表名称").split(".")
dr("表名") = nm(1)
dr("表模式") = nm(0)
End If
Next
为什么上述代码应怎么修改
-- 发布时间：2018/8/6 22:52:00
--
dr("表名") = nms(1)
dr("表模式") = nms(0)