主题：[分享]ERP之财务

https://pan.baidu.com/s/1jIOOec2

财务系统算是较专业的一环,分享出来让大家体会foxtable也可以如此.

 

抱歉!老师,是视频档.之前上传有问题,现再上传试试看.

抱歉!老师试了还是不行.

用checkBox控件就可以做到

 

If e.Sender.Checked Then

    Dim lbs As String() = {"幣別", "匯率", "啟用日期", "選擇列"}

    For i As Integer = 1 To lbs.Length

        e.Form.Controls("Label" & i).Text = lbs(i - 1)

    Next

   

    Dim caps As String() = {"幣別", "幣名", "匯率", "啟用日期"}

    For i As Integer = 0 To caps.Length - 1

        Tables(e.Form.Name & "_Table1").Cols(i).Caption = caps(i)

    Next

    DataTables("ExchangeRate").BuildHeader

Else

    Dim lbs As String() = {"CurrencyNo","ExchangeRate", "UseDate", "Select"}

    For i As Integer = 1 To lbs.Length

        e.Form.Controls("Label" & i).Text = lbs(i - 1)

    Next

   

    Dim caps As String() = {"CurrencyNo", "CurrencyName", "ExchangeRate", "UseDate"}

    For i As Integer = 0 To caps.Length - 1

        Tables(e.Form.Name & "_Table1").Cols(i).Caption = caps(i)

    Next

    DataTables("ExchangeRate").BuildHeader

End If

也许还有更好的方式,老师们可以指导.

谢谢指点！我会如此做是因为有些是海外发行上市公司,公司内部需要中英文报表才会这样设计,不需要退出系统做切换.