...
....
Text121 = Val(Text1) - Val(Text61)
Text122 = Val(Text2) - Val(Text62)
Text123 = Val(Text3) - Val(Text63)
Text124 = Val(Text4) - Val(Text64)
Text125 = Val(Text5) - Val(Text65)
Text126 = Val(Text6) - Val(Text66)
...
....

我的这些计算的结果怎么会在Text121 得到“5。600000”这样的结果？
其余显示君很正常为两位小数：5。21（比如）

TEXT设置均为默认设置！

最好完整的数据发出来……整个工程最好……

＝。＝居然放了60多个TEXT

不简单啊~~~~`

的确

楼主很不浮躁，欢迎来VB论坛做客


用Format函数

代我修改下！

谢谢！

另外想使用公共模块，以减少冗余！

不是使用模块能减少的＝。＝控件数组还有循环你没有利用啊……

代码看的头晕……你能不能说要怎么样出现你说的问题啊……

我找到了个有text121的那句，运行后全是0……数据没有录入？

我看了下，就是那个FSE窗体，运行后，除了TEXT121其他正常啊？

一打开FSE窗口，点合计按钮，就出现与其他TEXT121的不太一样小数位的数值！

我又把数据类型改为文本型，结果还是一样！

另外，

我想把每个记录中Z（I）字段值=“银行存款”时对应的J（I）或D（I）的值排列输出来！

以前是总计数，代码如下：

For i2 = 1 To 9
s2 = "Select Sum([j(" & i2 & ")]) from fl2 where [z(" & i2 & ")]='银行存款' GROUP BY [Z(" & i2 & ")]"
If conn.Execute(s2).EOF = False And IsNull(conn.Execute(s2)(0)) = False Then
a2 = a2 + conn.Execute(s2)(0)
End If
Next

现在为实现全部一一输出排列显示出来，而不是统计，改为：
Private Sub Command1_Click()
Dim jj, ss, ii As Integer
Dim mysql As String
For jj = 1 To 9
mysql = "select * from fl2 where [z(" & jj & ")]='银行存款' "
If Conn.Execute(mysql).EOF = False And IsNull(Conn.Execute(mysql)(0)) = False Then


Set Rst = Conn.Execute(mysql)
End If

ss = Rst.Fields.Count
If Rst.BOF = True Then
MsgBox "no！"
Else
Set DataGrid1.DataSource = Rst
For ii = 0 To ss - 1
DataGrid1.Columns(ii).Alignment = dbgCenter
DataGrid1.Columns(ii).Width = 1000
Next ii
DataGrid1.AllowUpdate = False
End If
Next
End Sub

怎么就显示一个记录呢？

没有实现循环？？？！！！

下面这段可不可以放到公共模块里去？
Option Explicit
Private conn As ADODB.Connection

Private Rst As New ADODB.Recordset

发现问题了……如果你用个single先保存就得到正确结果了……我已经另发帖讨论了