Foxtable(狐表) → 用户栏目 → 专家坐堂 → appendload


  共有2325人关注过本帖树形打印复制链接

主题：appendload
帅哥哟，离线，有人找我吗？
lk15502
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		appendload  发帖心情 Post By：2016/10/20 13:29:00 [显示全部帖子]

  Dim dr As DataRow = DataTables("染色生产表").sqlfind("[缸号] = '" & r1("缸号") & "'")我用sqlfind找到的dr,如果table没有找到，用appendload的方法怎么追载
Dim wz As Integer = Tables("染色生产表").findrow(dr)
        If wz >= 0 Then
            Tables("染色生产表").position = wz
        Else
            DataTables("染色生产表").AppendLoad(dr)
        End If
用AppendLoad(dr)不行，代码该怎么写？
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/20 15:15:00 [显示全部帖子]

老师不好意思，这是增加行的按钮的代码，请帮我看看有什么可以改进的地方：
Dim r1 As Row = Tables(e.Form.name & "_table3").current
If r1 IsNot Nothing AndAlso _userroles.Contains("生产染色") = True Then
    Dim dr As DataRow = DataTables("染色生产表").sqlfind("[缸号] = '" & r1("缸号") & "'")
    If dr Is Nothing Then
        Dim r2 As Row = Tables("染色生产表").addnew()
        r2("订单编号") = r1("订单编号")
        r2("客户") = r1("客户")
        r2("品名大类") = r1("品名大类")
        r2("品名小类") = r1("品名小类")
        r2("缸号") = r1("缸号")
        r2("生产类型") = r1("生产类型")
        r2("单双染") = r1("单双染")
        r2("重量") = r1("投坯重量")
        r2("匹数") = r1("投坯匹数")
        r2("颜色") = r1("颜色")
        r2("色号") = r1("色号")
    Else
        msgbox("该缸号已在染色生产表存在,请在该缸号行编辑!")
        Dim wz As Integer = Tables("染色生产表").findrow(dr)
        If wz >= 0 Then
            Tables("染色生产表").position = wz
        Else
            DataTables("染色生产表").AppendLoad("[缸号] = '" & r1("缸号") & "'")
        End If
    End If
Else
    msgbox("您没有此操作权限,请确认上面的表是否有当前行")
End If
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/20 15:57:00 [显示全部帖子]

谢谢，老师再问一个问题，下面代码有什么问题
 max = e.DataTable.sqlcompute("max(缸号)","缸号.contains("-") = false and [_identify] <> " & e.DataRow("_identify") )
 回到顶部
帅哥哟，离线，有人找我吗？
lk15502
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：706 积分：4908 威望：0 精华：0 注册：2016/5/17 12:03:00 		  发帖心情 Post By：2016/10/20 15:58:00 [显示全部帖子]

特别是：缸号.contains("-")

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 5 次数据查询