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

项目事件

 

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

 

自定义函数

 

全局代码

 

菜单事件