- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]哪位兄弟帮忙给转成开发版啊？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=63102)
-- 发布时间：2015/1/14 0:45:00
-- [求助]哪位兄弟帮忙给转成开发版啊？
如题，此附件为商业版，原来商业版的加密狗找不见了，哪位兄弟帮忙给转成开发版吧，不然看不到里面的代码。先谢过了！
-- 发布时间：2015/1/14 0:46:00
--
附件怎么不见？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:选择不连续行和excel插图.zip |
-- 发布时间：2015/1/14 2:24:00
--
你自己下试用版打开的啊
-- 发布时间：2015/1/14 8:04:00
--
只有官方才可以转, 开发版加密狗也可以打开商业版的哦. 买1送1 你 只需要再安装一个商业版即可
-- 发布时间：2015/1/14 13:17:00
--
不行啊！程序需要激活。
此主题相关图片如下：试用版激活.jpg
-- 发布时间：2015/1/14 13:41:00
--
或者把代码给导出来也可。谢谢。
-- 发布时间：2015/1/14 14:00:00
--
导不出的,需要激活联系官方激活即可
-- 发布时间：2015/1/14 14:15:00
--
你是不是到期了？商业版也是有期限的。你去下载一个2014.10.07之前的版本吧。
-- 发布时间：2015/1/15 17:33:00
-- 回复：（FOTOER）或者把代码给导出来也可。谢谢。
项目事件
AfterOpenProject
DataTables("表A").ReplaceFor("打印",
False)
AfterBuild
If e.Book.TempLate = "选择不连续行和excel插图"
Then
Dim sheet As XLS.Sheet = e.Book.Sheets(0)
Dim count As Integer = Tables("表A").Compute("Count(_Identify)",
"打印 = true")
\'If count Mod 7 <> 0 Then
\'Dim pos As Integer = count \\ 7 * 11 + 3 +
count Mod 7
Dim pos As Integer = count + 3
Dim Style As XLS.Style = e.Book.NewStyle()
\'定义新样式
Style.ForeColor = Color.Red \'设置样式的字体颜色
sheet(pos, 1).Style = style
sheet(pos, 1).Value = "以下空白"
\'End If
End If
计划管理
表事件
表A_AfterCheckRow
e.Row("打印") =
e.Row.Checked
窗口表事件
窗口与控件事件
打印_AfterLoad
Dim tmp As String = ProjectPath
& "Attachments\\选择不连续行和excel插图.xls"
Dim rpt As String = ProjectPath
& "Reports\\rp选择不连续行和excel插图.xls"
Dim Book As New XLS.Book(tmp)
Book.Build()
Book.Save(rpt)
e.Form.Controls("WebBrowser1").AddRess
= rpt
打印_Button1_Click
e.Form.Close()
forms("列表").Show
列表_AfterLoad
Tables("表A").allowedit=False
列表_Button1_Click
forms("打印").show()
自定义函数
全局代码
菜单事件
-- 发布时间：2015/1/15 22:25:00
--
谢谢！