appendload - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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)不行，代码该怎么写？

http://www.foxtable.com/webhelp/scr/2276.htm

DataTables("染色生产表").AppendLoad("[缸号] = '" & r1("缸号") & "'")

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

老师不好意思，这是增加行的按钮的代码，请帮我看看有什么可以改进的地方：

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

Else

msgbox("您没有此操作权限,请确认上面的表是否有当前行")

End If

谢谢，老师再问一个问题，下面代码有什么问题

max = e.DataTable.sqlcompute("max(缸号)","缸号.contains("-") = false and [_identify] <> " & e.DataRow("_identify") )

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

e.DataTable.sqlcompute("max(缸号)","缸号 like '%-%'")

主题：appendload