主题：满足条件将双精度扩展为时段的方法

例某一列为双精度小数列,某一行符合条件时,将其类型扩展为时段

此主题相关图片如下：时段.png

红袍老师，我做了个例子，有两个问题点：1.画框内的是双精度小数列，当“批号”列的行=“时间”时，扩展成时段列；2.主表与子表依靠编号进行关联，当子表的精度最大值等于5的时候，子表的其他精度也保持固定在5位小数，保持一致，详见画圈部分~~谢谢红袍老师了~~

此主题相关图片如下：求助项.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:小数位数统一与双精度扩展时段.foxdb

下面是小数位数，是我自己写的代码，可是应用后又不成功，把其他编号的位数也设置成了这个位数；另外再加一位数，代码就不生效了~~

Dim i As Integer
Dim i2 As Integer = 0
'For Each c As Col In Tables("管制图样本测量").Cols
  For i3 As Integer = 1 To 30 
    For Each r As Row In Tables("管制图样本测量").Rows
'If r("样" & i3)
        'If c.name <> "批号" Or c.name <> "管制图编号" Or c.name <> "合计" Then
            'If r("批号") <> "ΣX" Or r("批号") <> "Xbar" Or r("批号") <> "R" Then
                'Dim r As Double = 0.005
                'i = r.tostring().length-r.Tostring().lastindexof(".")-1
                i = r("样" & i3).tostring().length-r("样" & i3).Tostring().lastindexof(".")-1
                'MessageBox.Show(c.name)
                If i > i2 Then
                    i2 = i
                    'MessageBox.Show(i)
                'End If
            End If
            '
            'MessageBox.show(d.tostring().length-d.Tostring().lastindexof(".")-1)
'End If
        Next
Next
    'Next

MessageBox.Show(i2)
DataTables("管制图样本测量").DataCols("样1").SetFormat("0.000000")