- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 移出行问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7806)
-- 发布时间：2010/8/7 19:35:00
-- 移出行问题
DataTables("订单").DataRows(0).Remove()
请问移除表A第一列不为空的行代码应该怎么写，谢谢
-- 发布时间：2010/8/7 20:46:00
--
If DataTables("订单").DataRows(0)("第一列") <> Nothing Then
DataTables("订单").DataRows(0).Remove()
End If
-- 发布时间：2010/8/7 21:05:00
--
-- 发布时间：2010/8/7 21:10:00
--
谢谢2为老师
-- 发布时间：2010/8/7 21:17:00
--
我的代码是用在窗口按钮中，怎么2楼的提示出错，好像第一句语法有问题。谢谢
-- 发布时间：2010/8/7 21:30:00
--
Dim dt As Table = Tables("表A")
Dim r As Integer
Dim drs As List(Of DataRow) = DataTables("表A").Select("[第一列] Is Not Null")
For n As Integer = 0 To drs.Count -1
r = dt.FindRow("[第一列] = \'" & drs(n)("第一列") & "\'", dt.Position + 1, True )
If r >= 0 Then
DataTables("表A").DataRows(r).Remove()
End If
Next
-- 发布时间：2010/8/7 21:36:00
--
楼上的代码少考虑了一个问题，改成这样：
Dim dt As Table = Tables("表A")
Dim r As Integer
Dim drs As List(Of DataRow) = DataTables("表A").Select("[第一列] Is Not Null","_Identify")
For n As Integer = 0 To drs.Count -1
r = dt.FindRow("[第一列] = \'" & drs(n)("第一列") & "\'", dt.Position + 1, True )
If r >= 0 Then
DataTables("表A").DataRows(r).Remove()
End If
Next
-- 发布时间：2010/8/7 22:01:00
--
谢谢C版
-- 发布时间：2010/8/7 22:09:00
--
一行就行：
DataTables("xxx").RemoveFor("条件表达式")
-- 发布时间：2010/8/7 22:15:00
--
一行就行：
DataTables("xxx").RemoveFor("条件表达式")
nnd，别都烂在肚里