主题：直播：对查询表增加一个列用于计算累加金额值

 生成查询表后，循环每一行，把余额赋值上去不就行了？

Dim dt As DataTable = DataTables("表A")
For Each yh As String In dt.GetValues("用户")
    Dim ye As Double = 0
    For Each dr As DataRow In dt.Select("用户 = '" & yh & "'", "日期")
        dr("余额") = ye + dr("流水")
        ye = dr("余额")
    Next
Next