- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助2个小问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=71256)
-- 发布时间：2015/7/8 11:19:00
-- 求助2个小问题
1、窗口能不能整体复制，包括窗体包含的功能，设计两个窗口功能差不多，想复制其中一个，然后在此基础上修改窗口
2、如上表这种多重字段怎么设置的
此主题相关图片如下：字段.png
-- 发布时间：2015/7/8 11:27:00
--
1、http://www.foxtable.com/help/topics/2413.htm
2、http://www.foxtable.com/help/topics/0018.htm
-- 发布时间：2015/7/8 20:29:00
--
多谢，还有个小问题，之前在论坛找了个操作日志，发现每次数据改动时，都出现的信息框，怎样把这个信息框去掉，如图：
-- 发布时间：2015/7/8 20:29:00
--
oo
此主题相关图片如下：qq图片20150708202328.png
-- 发布时间：2015/7/8 20:30:00
--
把代码Messagebox.Show去掉
-- 发布时间：2015/7/8 22:11:00
--
If e.DataTable.Name <> "操作日志" Then
If e.DataRow.RowState = 2 Then
MessageBox.Show(e.DataRow.RowState)
Return
Else
MessageBox.Show(e.DataRow.RowState)
Dim dr As DataRow = DataTables("操作日志").AddNew
dr("ID") = e.DataRow("_Identify")
dr("用户") = User.Name
dr("涉及表") = e.DataTable.Name
dr("涉及列") = e.DataCol.Name
dr("涉及行") = e.DataRow("_Identify")
dr("时间") = Date.Now
dr("操作") = """" & e.OldValue & """ 改成了 """ & e.NewValue & """"
Dim str As String = ""
For Each c As DataCol In e.DataTable.DataCols
str += c.Name & "=" & e.DataRow(c.Name) & "|"
Next
dr("原行数据") = str
End If
End If
是把上面代码中两个MESSAGEbox都去掉吗？
-- 发布时间：2015/7/8 22:12:00
--
ok，好了
-- 发布时间：2015/7/9 17:21:00
--
为什么其他字段的内容都导入进去了，而多层表头的内容没有进去？
此主题相关图片如下：捕获.png
-- 发布时间：2015/7/9 18:00:00
--
你问的是窗体复制功能,和表导入没有任何关系
多层表头的实现
-- 发布时间：2015/7/9 18:01:00
--
1、多层表头的实现，你用标题去实现，不要用列名；
2、合并数据的时候，是比较双方的列名的，不匹配就导入空白。