'''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

    

    ' 设置最后一列的标题

    MSHFlexGrid1.TextMatrix(0, colCount + 1) = "总和"

    ' 遍历每一行

    For i = 1 To rowCount

        sum = 0

        ' 遍历当前行的每一列

        For j = 2 To colCount

            ' 尝试将单元格中的内容转换为数字并累加到 sum 中

            If IsNumeric(MSHFlexGrid1.TextMatrix(i, j)) Then

                sum = sum + Val(MSHFlexGrid1.TextMatrix(i, j))

            End If

        Next j

        ' 将结果存储在当前行的最后一列

        MSHFlexGrid1.TextMatrix(i, colCount + 1) = sum

   Next i

    

Else

MsgBox "no"

End If