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

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

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

rxfmrqq

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

加好友

发短信

等级：幼狐帖子：100 积分：925 威望：0 精华：0 注册：2016/12/5 10:41:00

Post By：2017/1/22 18:33:00 [只看该作者]

以下是引用有点色在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

For Each sel As DataRow In DataTables("统计").Select("单据编号 = '" & Forms("销售").Controls("Label3").text & "'")
    If sel.RowState = DataRowState.Added Then
        sel("实收")= e.Form.Controls("TextBox1").text
    End If
Next

老师，用for each 后，还是赋值不了。

然后我讲 if 判断语句删除后，虽然不报错。但是同样的‘统计’下的‘实收’列还是收不到数据。

有点色

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

加好友

发短信

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

Post By：2017/1/22 18:41:00 [只看该作者]

请，不，要，加，条件

rxfmrqq

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

加好友

发短信

等级：幼狐帖子：100 积分：925 威望：0 精华：0 注册：2016/12/5 10:41:00

Post By：2017/1/22 19:38:00 [只看该作者]

老师我知道错了。。。

If DataTables("销售明细").DataRows("产品名称_商品名") IsNot Nothing
    Dim Cols1() As String = { "时间","单据编号","客户" }
    Dim Cols2() As String = { "时间","单据编号","客户" }
    Dim dr1 As DataRow = DataTables("销售明细").DataRows(0)
    Dim dr2 As DataRow = 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

我给整串全改了。

有点色

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

rxfmrqq

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

加好友

发短信

等级：幼狐帖子：100 积分：925 威望：0 精华：0 注册：2016/12/5 10:41:00

Post By：2017/1/22 19:56:00 [只看该作者]

老师不行呀，到‘统计’只要第一条信息，如果用For Each datatables.select。就所有信息都过去了。

原来用fill就是因为几条信息都一样的，可以省略所以才用的。

有点色

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

总数 16 上一页 1 2

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