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

我想实现这样的效果：

此主题相关图片如下：qq图片20210507174101.png

代码这样写：

Tables("财务数据源").Sort = "日期,凭证号,字号,[借或贷] DESC"

此主题相关图片如下：qq图片20210507174225.png

结果得出这样乱乱的效果，调过很多个排列顺序了，始终得不到我要的效果，晕了！

这样写也试过了，都不是我要的效果

Tables("财务数据源").Sort = "字号,日期,凭证号,[借或贷] DESC"

问题查出并解决了。

我查出了字号里有一个收字、收字：多了个冒号，改后重置以为正常了，谁知重新打开后还是乱，不是我要的分组排列，还是请教老师吧，我晕了。

Tables("财务数据源").Sort = "字号,日期,凭证号,[借或贷] DESC"

我想应该是收、付、转的借贷录入先后顺序影响财务数据源表顺序，无论怎调，顺序都是乱的：

收款凭证先贷、后借

付款凭证先借、后贷

转账凭证先借、后贷

其实无论那一种凭证都要求先借、后贷，由于收款凭证的借方金额要在贷方发生额保存后才能统计出来，故要先保存贷方金额，后生成借方金额，现我想在保存贷方数据后在这张单的贷方数据行前插入一行保存借方数据，这样就不会造成排序混乱。

我想了一下，红色的插入代码报错，请教应如何写？

Dim r As DataRow = DataTables("财务数据源").SQLFind("[字号] = '" & (e.Form.Controls("Label5").text).SubString(0,2) & "' And [日期] = #" & e.Form.Controls("rq").Value & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '借'")

Dim dts As List(of DataRow) = DataTables("财务数据源").Select("[字号] = '" & (e.Form.Controls("Label5").text).SubString(0,2) & "' And [日期] = #" & e.Form.Controls("rq").text & "# And [安日期生成单号辅助列] = '" & e.Form.Controls("dh1").text & "' And [借或贷] = '贷'")

If r Is Nothing Then

Dim c As Integer = (DataTables("财务数据源").DataRows.Count - 1) - dts.count

r = DataTables("财务数据源").Insert(c)

End If

中文是按照拼音字符排序的。如果要自定义排序，要自己添加一个排序列手工排序

排序是无法解决了，我已经试了两天了，我现在想插入行，让收款凭证实现先借后贷录入，这插入行如何写？

主题：排序