关于小数点的问题

Question

你可以在数据库中设置
我只知道sql server 中可以设定两位小数点

Answer 1

你可以在mshflexgrid的设置中设置该字段的格式为货币型就ok了！！！

Answer 2

to flager:
     学生是一个初学者，老师能否明显。
我是这样写的set mshflexgrid.datasource=adodc1
其中adodc1中包含有一个金额字段

Answer 3

先用ado查询记录，然后在程序中自己把数据灌入网格 时处理以下
用.format(rst("你要查的字段")，"###，###，00")

Answer 4

因为本人是初学者,所以我不知怎样用.
我把数据灌入网格时用的是mshflexgrid.datasource=adodc1
我只会用这一种方法.
请问高手们,我应怎样把数据灌入网络并处理金额字段的格式???
请高手们为我举个小例子好吗??

Answer 5

看看dataformat对象
我用VSFlexGrid，比这个方便

Answer 6

to jackyin:
      我用你说的方法做了,但是不起作用了.
      我的代码是:adodc1.recordset.fields("金额")=format(adodc1.recordset.fields("金额"),"###,###,00")
各位帮助啊!!!!

Answer 7

你可以把Text的控件绑定到你的数据库中的价格字段上，把该字段的DateFormat
设置为“货币”型！
再写如下代码：
Private Sub Form_Load()
Dim i As Integer
For i = 1 To Adodc1.Recordset.RecordCount
MSHFlexGrid1.Col = ”你的字段所在控件中的列号“
MSHFlexGrid1.Row = i
MSHFlexGrid1.Text = Text1.Text
Adodc1.Recordset.MoveNext
Next i
End Sub
这样应该可以了！！

Answer 8

用一下Format函数，然后以字符串来处理好像也应该可以的

Answer 9

大家好：
    谢谢大家的热情帮助。
    我觉得必须用format函数，因为如果我用上千条记录，并且不止一个金额字段。例如我有含税金额、不含税金额等等，那么如果用flager(紫龙朋友）的方法也能实现，但是速度肯定比较慢。一天的时间过去了，我试用了一天的format函数，但是毫无进展。大家一定要帮我呀。

Answer 10

你的mshflexgrid显示数据的时候是用代码填写数据的吗？
下面这段代码是我用来转换日期格式用的，你看看
Public Function CVDate(MyDate As Variant)
    CVDate = Format(MyDate, "yy-mm-dd")
End Function写入数据的时候
CVDate(你的数据) 

Answer 11

我用format凼数试了但是不起作用,我的代码是:adodc1.recordset.fields("金额")=format(adodc1.recordset.fields("金额"),"###,###,00")
请大家帮我改改

Answer 12

adodc1.recordset.fields("金额")=format(adodc1.recordset.fields("金额"),"###,###.00")

Answer 13

我刚才写错了，我就用的：
adodc1.recordset.fields("金额")=format(adodc1.recordset.fields("金额"),"###,###.00")

Answer 14

我的全部代码是:
    cnn.open "provider=microsoft jet.oledb.3.51;data source=c:\aa.mdb........."
    rst.cursorlocation=aduseclient
    rst.open "xsb",cnn,adopenkeyset,adlockbatchoptimistic,adcmdtable
    set adodc1.recordset=rst
    adodc1.recordset.fields("金额")=format(adodc1.recordset.fields("金额"),"###,###.00"
    set mshflexgrid1.datasource=adodc1  我的E-mail是[email protected]希望你给我发一下你的代码,非常感谢!!!

Answer 15

我是随便用了一个代码啊
Option Explicit
Dim x As StringPrivate Sub Form_Load()    x = Format(x, "###,###.00")End Sub
然后在调试状态下对x赋值的

Answer 16

我觉得是你的代码的问题，因为对于mshflexgrid控件来说，从recordset里取出来的值
就是这样的，而你最后显示在mshflexgrid里的东西，还是在recordset里取出来的，
要不然的话，你就可以不用什么format函数了！直接从recordset取还不是一样！
假如你直接对mshflexgrid.text赋值就可以的，你说呢！

Answer 17

我的地址就是 [email protected]
cclxj这是号是我同事的， 所以......

Answer 18

to flager:
    我用你说的方法实现了,但是速度比较慢,不知各位还有没有别的好方法.
注:
   flager:
        Thank you very much!!!