[求助]老师您好，询问一个比较基础的问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]老师您好，询问一个比较基础的问题。

共有2995人关注过本帖树形打印复制链接主题：[求助]老师您好，询问一个比较基础的问题。

有点色

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/22 17:41:00 [显示全部帖子]

参考

For Each dr As DataRow In DataTables("统计").Select("")
    If dr.RowState = DataRowState.Added Then
        dr("实收")= e.Form.Controls("TextBox1").text
    End If
Next

有点色

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/22 18:41:00 [显示全部帖子]

请，不，要，加，条件

有点色

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/22 19:43:00 [显示全部帖子]

For Each dr1 As DataRow In DataTables("销售明细").Select("")
    Dim Cols1() As String = { "时间","单据编号","客户" }
    Dim Cols2() As String = { "时间","单据编号","客户" }
    Dim dr2 As DataRow = DataTables("统计").find("订单编号 = '" & dr1("订单编号") & "'")
    If dr2 Is Nothing Then dr2 = DataTables("统计").AddNew()
    For c As Integer = 0 To Cols1.Length -1
        dr2(Cols2(c)) = dr1(Cols1(c))
        dr2("实收") = e.Form.Controls("TextBox1").text
    Next
Next

有点色

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/1/22 20:20:00 [显示全部帖子]

If DataTables("销售明细").datarows.Count > 0 Then
    Dim Cols1() As String = { "时间","单据编号","客户" }
    Dim Cols2() As String = { "时间","单据编号","客户" }

    Dim dr1 As DataRow = DataTables("销售明细").DataRows(0)
    Dim dr2 As DataRow = DataTables("统计").find("订单编号 = '" & dr1("订单编号") & "'")
    If dr2 Is Nothing Then dr2 = DataTables("统计").AddNew()
    For c As Integer = 0 To Cols1.Length -1
        dr2(Cols2(c)) = dr1(Cols1(c))
        dr2("实收") = e.Form.Controls("TextBox1").text
    Next
End If

下一主题 >> << 上一主题

主题：[求助]老师您好，询问一个比较基础的问题。