Dim Filter As String
With e.Form.Controls("厂家")
    If .Value IsNot Nothing Then
        Filter = "供货厂家 = \'" & .Value & "\'"
    End If
End With
With e.Form.Controls("编号")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "编号 = \'" & .Value & "\'"
    End If
End With

If Filter > "" Then
    Tables("服装进销存").Filter = Filter
End If
Dim zone As String = e.Form.Controls("地区").value
Dim fact As String = e.Form.Controls("厂家").value

Dim tab As String = "厂家运费"
Dim rgd As WinForm.RecordGrid = e.Form.Controls("RecordGrid2")
rgd.Table = Tables(tab) \'指定绑定表
rgd.Build()

Dim dr As DataRow
Dim po As Integer
dr = DataTables("厂家运费").Find( "厂家 = \'" & fact & "\'and 地区 = \'" & zone & "\'" ) \'找出最后一次订购PD01产品的DataRow
po = Tables("厂家运费").FindRow(dr)\'找出该DataRow在Table中的位置
If po >= 0 Then \'如果找到
    Tables("厂家运费").Position = po \'选定
End If

以上是查询代码。。

问题：

我想通过查询之后，选定此服装

输入数量之后，然后通过计算按钮，在空白处增加一个计算

计算方式：

总利润=服装进销存.（进价-单价）X数量  +  厂家运费.（运费-运费成本） X数量 + 续重费用X（数量-1）-续重成本X（数量-1）

求代码，求指点。