# Re: 再请教...vb... 谢谢!!

Posted by 老怪 on September 10, 1998 at 00:07:24:

In Reply to: 再请教...vb... 谢谢!! posted by Gary on August 23, 1998 at 13:14:08:

: Private Sub Form_Load()
: Data1.RecordSource = "SELECT [编号],[货号],[品名],[销售状态],[销售日期],[销售数量],[单价],[销货退回数量],([销售数量]-[销货退回数量])*[单价] AS [交易金额],[备注] FROM[销售资料档]"

: End Sub

:
: 请问要如何把 ([销售数量]-[销货退回数量])*[单价] AS [交易金额] 的这个 "交易金额"栏位 ,写入原先的[销售资料档] 呢?? vb白痴留... ^.^"

1.你必须增加一实体栏位，譬如 SaleCount
2.
Data1.Recordset.MveFirst
Do Wihle not Data1.Recordset.Eof
Data1.recordset.Edit
data1.recordset!SaleCount=data1.recordset!交易金额
data1.recordset.update
data1.recordset.movenext
loop

Follow Ups: