一个SQL语句求和的问题
Dim strSQL = "select carpage,carno,sum(carbriage),sum(carstop),sum(carhourse),sum(carother),sum(cartotal) from cartable group by carno where carpage='" &textbox1.text.trim&"' "
Dim dsTransInfo As New DataSet
Dim myDataAdapter As New SqlDataAdapter
dsTransInfo.Clear()
myDataAdapter = New SqlDataAdapter(strSQL, cnsqlserver)
myDataAdapter.Fill(dsTransInfo)
With DataGrid1
.TableStyles.Clear()
.DataSource = dsTransInfo
.DataMember = "table"
End With
Dim ts As New DataGridTableStyle
Dim ac As New DataGridTextBoxColumn
Dim HeaderValues(7) As String
Dim WidthValues(7) As Integer
Dim i As Integer
HeaderValues(0) = "车牌号"
HeaderValues(1) = "过桥费"
HeaderValues(2) = "停车费"
HeaderValues(3) = "进仓费"
HeaderValues(4) = "其他费用"
HeaderValues(5) = "总计"
WidthValues(0) = 60
WidthValues(1) = 60
WidthValues(2) = 90
WidthValues(3) = 90
WidthValues(4) = 90
WidthValues(5) = 90
ts.MappingName = dsTransInfo.Tables(0).TableName
For i = 0 To 5
ac = New DataGridTextBoxColumn
ac.HeaderText = HeaderValues(i) '列名
ac.MappingName = dsTransInfo.Tables("table").Columns(i).ColumnName
ac.TextBox.AutoSize = True 'datagrid内的文本框宽度自适应调整
ac.NullText = String.Empty
ts.AlternatingBackColor = Color.LightGray '设定交替行的背景色
ts.PreferredColumnWidth = WidthValues(i) '列宽
ts.GridColumnStyles.Add(ac)
Next i
DataGrid1.TableStyles.Add(ts)
运行后提示错系统错误,经过调试后发现可能是SQL语句不对,将SQL语句改成
Dim strSQL = "select carno,sum(carbriage),sum(carstop),sum(carhourse),sum(carother),sum(cartotal) from cartable group by carno "就不会出错了。但我要根据按页码条件来查询,问题出在哪里啊?