MSHFlexgrid横向统计

'''MSHFLEXGRID横向统计
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cmd As New ADODB.Command
con.Open 'Provider=SQLOLEDB.1;Password=xxx;Persist Security Info=True;User ID=sa;Initial Catalog=abc;Data Source=192.168.0.1,1369'
rs.Open 'SELECT item_subno,sale_price from bi_t_item_info where item_subno='' & Trim(txt_barcode.Text) & '' ', con, adOpenKeyset, adLockOptimistic
If rs.RecordCount > 0 Then
Set MSHFlexGrid1.DataSource = rs
MSHFlexGrid1.Visible = True
Dim i As Integer
Dim j As Integer
Dim sum As Double
Dim rowCount As Integer
Dim colCount As Integer

' 获取 MSHFlexGrid 的行数和列数
rowCount = MSHFlexGrid1.Rows - 1
colCount = MSHFlexGrid1.Cols - 1

' 确保有足够的列来存储结果
MSHFlexGrid1.Cols = colCount + 2