vb统计 求大神
我做一个页面 上面是check+combo 一个条件选择 下面就是想做出3种统计 一个是产量由高到低 一个是平均产量 一个是总产量 这三个用Option做一个控件组 然后有个查询按钮，我现在可以查询出，可是统计不会了，不知道怎么写代码 应该写在哪里。 下面是我的按钮代码
Private Sub Command1_Click()
s = "select * from jibenxinxi,scsj where jibenxinxi.井号=scsj.井号 "
For i = 0 To 5
If Check1(i).Value = 1 Then
s = s & " and " & Check1(i).Caption & "='" & Combo1(i).Text & "' "
End If
Next
Adodc1.RecordSource = s
Adodc1.Refresh
DataGrid1.Visible = True
End Sub
[解决办法]
Private Sub Command1_Click()
s = "select "
For i = 0 To 5
If Check1(i).Value = 1 Then
s = s & Check1(i).Caption & ","
End If
Next
==>
Private Sub Command1_Click()
dim sFld as string
s = "select "
For i = 0 To 5
If Check1(i).Value = 1 Then
if sfld<>"" then
s=s & "," & Check1(i).Caption
else
s=Check1(i).Caption
end if
End If
Next
s=s & sfld
