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

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

此主题相关图片如下：时段.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")

1、不可能根据一行修改某列的类型的，要改只能整列一起改；

 

2、如果你用字符列，你填什么都没问题；

 

3、设置精度，也是对整个列设置的，不能根据你不同的编号设置各种的精度；

 

4、你只能改成字符列，才行。