专家坐堂-修改代码Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  修改代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53204)

--  作者：发财
--  发布时间：2014/7/2 11:06:00
--  修改代码

Dim d As Date = vars("cc")
Dim day As Integer = d.day
If day = 31 Or day = 30 Or day = 28 Or day = 29 Then
Forms("资产负债表").Open()
Else
MessageBox.Show("输入日期不对!")
End If
如何将这句代码：如果是输入日期是月未的意思If day = 31 Or day = 30 Or day = 28 Or day = 29 Then
如何修改一下

--  作者：有点甜
--  发布时间：2014/7/2 11:09:00
--

Dim d As Date = vars("cc")
Dim Days As Integer = Date.DaysInMonth(d.Year,d.Month)
If days = d.Day Then
    Forms("资产负债表").Open()
Else
    MessageBox.Show("输入日期不对!")
End If

http://www.foxtable.com/help/topics/0265.htm

[此贴子已经被作者于2014-7-2 11:09:32编辑过]

--  作者：Bin
--  发布时间：2014/7/2 11:10:00
--

Dim d As Date = Date.Today
If Date.DaysInMonth(d.Year,d.Month) = d.Day Then
MessageBox.show("是最后一天")
Else
MessageBox.show("不是最后一天")
End If

--  作者：发财
--  发布时间：2014/7/2 11:47:00
--
老师，多谢了！

--  作者：发财
--  发布时间：2014/7/2 16:47:00
--

Dim Book As New XLS.Book(ProjectPath & "集团汇总.xls")
Dim Sheet1 As XLS.Sheet = Book.Sheets("资产负债表")
Dim tt As Table = Tables("单位")
Dim drs As List(Of DataRow)
For i As Integer = 0 To tt.Rows.Count - 1
DataTables("资产负债表").DataRows.Clear
Dim xj As String = tt.Rows(i)("单位")
drs = DataTables("资产负债表汇总").Select("[单位] = \'" & xj & "\'")
For Each drr As DataRow In drs
Dim dr As DataRow = DataTables("资产负债表").addnew
dr("项目")=drr("项目")
dr("年初数")=drr("年初数")
dr("行次")=drr("行次")
dr("年未数")=drr("年未数")
dr("单位")=drr("单位")
Next
Dim dt As Table = Tables("资产负债表")
For r As Integer = 0 To dt.Rows.Count - 1 \'填入数据
If Sheet1(5+i, r+2).Formula = "" Then
Sheet1(5+i,r+2).Value = dt.rows(r)("年未数")
Dim s1 As String = dt.Rows(r)("单位")
Dim nn As Integer
nn=s1.Length
If nn=9 Then
Sheet1(5+i,1).Value= s1.Substring(3,2)
ElseIf nn=11 Then
Sheet1(5+i,1).Value= s1.Substring(7,2)
Else
Sheet1(5+i,1).Value= s1.Substring(9,2)
End If
End If
Next
Next
Book.Save( "d:\\集团汇总.xls" )

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.open( "d:\\集团汇总.xls" )
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets("资产负债表")
ws.UsedRange.Formula = ws.UsedRange.Formula
wb.save
wb.close
App.Quit
Dim Proc As New Process
Proc.File = ( "d:\\集团汇总.xls" )
Proc.Start()
如何做到不用打开( "d:\\集团汇总.xls" )，只是提示 MessageBox.show("导出成功！")

--  作者：有点甜
--  发布时间：2014/7/2 16:53:00
--

呃，后面这段是打开代码，你去掉

Dim Proc As New Process

Proc.File = ( "d:\\集团汇总.xls" )

Proc.Start()

--  作者：发财
--  发布时间：2014/7/2 17:17:00
--
如果保留打开，怎样才能固定打开集团汇总的某一工作表？

--  作者：有点甜
--  发布时间：2014/7/2 17:19:00
--

设置SelectedIndex

http://www.foxtable.com/help/topics/1464.htm

[此贴子已经被作者于2014-7-2 17:19:41编辑过]

--  作者：发财
--  发布时间：2014/7/2 22:08:00
--
例如导出资产表时，打开报表时显示的为资产表？

--  作者：有点甜
--  发布时间：2014/7/2 22:10:00
--
不是说了么，设置SelectedIndex啊