主题：菜鸟学狐表[求助]

呵呵，做管理软件都一个流程：

 

设计好表结构→设置表属性和列属性→设置代码互相引用数据→统计和分析数据→最后是出报表。

 

其实很多时候，不是不知道如何下手，而是你不敢或不肯动手，招式有了，尽管动手做就是了。

 

不过没有人会按上面的流程一次将软件开发完成，流程只是大概的，实际开发是乱的，是要反复调整的，例如做统计的时候发现表结构不合理，回头重新调整表结构。

    老师说的是做一套软件的大概流程，应该是没错的。但初学者看系统帮助就象看到了一大堆的零配件，老师只详细地讲了每个配件的用途，然后就叫他自己设计组装成一个个产品（软件），因此刚接触的大部分人会不知所措。这也是初学者的最大障碍。

其实vs.net的说明书有一层楼高，中间没有一页用于告诉你开发一个软件的过程是怎样。

 

最重要的是开始做，不实战，永远在迷糊中的。

 

设计表 、关联、表达式，统计、报表、数据引用、窗口设计等等，每个流程的招式都有了，不管3721，开始就是了。

 

 

 

   老师说的都真理！但初学者的思路一般都很混乱的。就象一个满腹经纶的专业教授，如果让他去教一个小学生，他认为如何如何做就行了，但效果不一定比一个专业的小学教师好。我只想说明教的（包括教的方法）与学的中间其实就存在一道鸿沟，如何解除这道鸿沟，就是一套科学的教程了。狐表很科学、很实用，狐表要发展，面对的客户层次也很多样，如果能让普通的爱好者也能很容易学会，那就达到狐表的最终目的了。（我对狐表的前景有信心）所以此贴讨论怎样学狐表，快学狐表，就只当是针对初学者的抛砖之石吧。期待一套好的入门教程（不是说明书式的）出台，应该是每个初学者的心声。

万丈高楼平地起。你有没有见过房产公司盖房子的时候也在拌混凝土？房产公司只要知道混凝土可以用来盖房子就行了，不用知道这些混凝土是怎么拌好的。

    楼上打的比喻是不恰当的。一个好软件有一个好的教程是很有必要的，是软件在推广应用中不可忽视的！本论坛的本“专家坐堂”其实就是在做同样的工作。本贴也是针对初学者学狐过程中的所感所想所需而发的。

帮助这个教程已经够用了，再加上论坛，没有解决不了的问题。还需要教程么！

     君不见好多初学者都在提议出视频教程？这正表明了大部分初学者有需要更通俗易懂的教程的需求，这也说明了系统帮助也是有一定的局限性的。就象你有全世界的详细地图在手，但远比不上有更好的导航系统实用。入门教程跟软件的帮助说明可以是不一样的，入门教程不一定非要详细的讲解整个软件的众多功能，但它却是软件在实际使用中的一个完整过程。

来个简单的快速入门？

可以考虑。

是呀，征对楼主所说的“狐表的系统帮助其实只算是一套很详尽的说明书，但不算是很好的入门教程！

”我以这样认为。以前用易表还好学点，本想换狐表用下，一看就连最起码的流水账结算“结余”的公式

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Select Case e.DataCol.Name     Case "产品","入库","出库"         Dim drs As List(of DataRow)         Dim Filter As String         Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [产品] = '" & e.DataRow("产品") & "'"         drs = e.DataTable.Select(Filter)         For Each dr As DataRow In drs             Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"             Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)             Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)             dr("库存") = Val1 - Val2         Next         If e.DataCol.Name = "产品" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then             Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [产品] = '" & e.OldValue & "'"             drs = e.DataTable.Select(Filter)             For Each dr As DataRow In drs                 Filter = "[_SortKey] <= " & dr("_SortKey") & " And [产品] = '" & dr("产品") & "'"                 Dim Val1 As Double = e.DataTable.Compute("Sum(入库)",Filter)                 Dim Val2 As Double = e.DataTable.Compute("Sum(出库)",Filter)                 dr("库存") = Val1 - Val2             Next         End If End Select

都这么复杂，怎么学得会呀？