主题：[求助]哪位兄弟帮忙给转成开发版啊？

如题，此附件为商业版，原来商业版的加密狗找不见了，哪位兄弟帮忙给转成开发版吧，不然看不到里面的代码。先谢过了！

附件怎么不见？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:选择不连续行和excel插图.zip

你自己下试用版打开的啊

只有官方才可以转,  开发版加密狗也可以打开商业版的哦.   买1送1  你 只需要再安装一个商业版即可

不行啊！程序需要激活。

或者把代码给导出来也可。谢谢。

导不出的,需要激活联系官方激活即可

 你是不是到期了？商业版也是有期限的。你去下载一个2014.10.07之前的版本吧。

项目事件

 

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()

 

自定义函数

 

全局代码

 

菜单事件

 

 

谢谢！