| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- appendload (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91852) |
| -- 作者：lk15502 -- 发布时间：2016/10/20 13:29:00 -- appendload 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)不行，代码该怎么写？ |
| -- 作者：有点蓝 -- 发布时间：2016/10/20 14:50:00 -- http://www.foxtable.com/webhelp/scr/2276.htm DataTables("染色生产表").AppendLoad("[缸号] = \'" & r1("缸号") & "\'")
|
| -- 作者：有点蓝 -- 发布时间：2016/10/20 14:52:00 -- Dim dr As DataRow = DataTables("染色生产表").find("[缸号] = \'" & r1("缸号") & "\'") If dr Is Nothing Then Dim drs As List(of DataRow) = DataTables("染色生产表").AppendLoad("[缸号] = \'" & r1("缸号") & "\'") If drs.count > 0 Then dr = drs(0) End If If dr IsNot Nothing Then Dim wz As Integer = Tables("染色生产表").findrow(dr) If wz >= 0 Then Tables("染色生产表").position = wz End If End If
|
| -- 作者：lk15502 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2016/10/20 15:43:00 -- 就那样了 |
| -- 作者：lk15502 -- 发布时间：2016/10/20 15:57:00 -- 谢谢，老师再问一个问题，下面代码有什么问题 max = e.DataTable.sqlcompute("max(缸号)","缸号.contains("-") = false and [_identify] <> " & e.DataRow("_identify") ) |
| -- 作者：lk15502 -- 发布时间：2016/10/20 15:58:00 -- 特别是：缸号.contains("-") |
| -- 作者：有点蓝 -- 发布时间：2016/10/20 16:03:00 -- e.DataTable.sqlcompute("max(缸号)","缸号 like \'%-%\'") |