主题：[求助]如何将字符串中表示时间的串转换为日期

Dim cnt  As integer = 5  '统计表个数
for i as integer = 1 to cnt
    Dim b As New GroupTableBuilder("统计表" & cnt ,DataTables("订单"))
    ...
next
dim dt1 As datatable = DataTables("统计表1")
for i as integer =2 to cnt
   dt1.Combine("型号",dataTables("统计表" & i),"型号") '将销售统计数据组合到进货统计数据
next
...

老大亲自出马，谢谢老大。具体的思路是这样的：

 

Dim cnt  As integer

这列写代码，计算出表的个数，赋值给cnt
for i as integer = 1 to cnt
    Dim b As New GroupTableBuilder("统计表" & cnt ,DataTables("订单"))
    ...
next
dim dt1 As datatable = DataTables("统计表1")
for i as integer =2 to cnt
   dt1.Combine("型号",dataTables("统计表" & i),"型号") '将销售统计数据组合到进货统计数据
next

判断有问题，如何判断一个字符串有多少个分隔符？我找了半天都没有找到。

Dim cnt  As Integer
这列写代码,计算出表的个数,赋值给cnt
Dim dts(cnt) As fxDataSource
For i As Integer = 1 To cnt
    Dim b As New GroupTableBuilder("统计表" & i ,DataTables("订单"))
    ...
   dts(i) = b.BuildDatasource
Next
For i As Integer =2 To cnt
   dts(1).Combine("型号",dts(i),"型号") '将销售统计数据组合到进货统计数据
Next

如何计算一个字符串中存在多少个分隔符，本例中使用“换行符”作为分隔符，如果存在两个，就会形成三个统计表，如果三个分隔符，就形成四个表。谢谢！

既然你要用split分割，spilit之后，数组的长度就是你要的，数组有length属性。

 

Dim  Multi As String = "ab|cd|ef"
Dim Values() As String
Values = Multi.split("|")
messagebox.show(values.Length)